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1.0 ABSTRACT 


PROGRAM CEMJA TESTS CONTIGUOUS MEMORY ADDRESS FROM 000000 10 
17757776. IT VERIFIES THAT EACH ADDRESS JS UNIQUE (AN ADDRESS 
TEST) AND THAT EACH MEMORY LOCATION CAN BE READ/WRITTEN 
RELIABLY (WORST CASE NOISE TESTS). 

THIS PROGRAM MAY BE USED T9 ADJUST/MARGIN MEMORY. 


2.0 REQUIREMENTS 
° EQUIPMENT 
PDP-11/70 FAMILY PROCESSOR WITH 52K MEMORY 


2.2 STORAGE 
PROGRAM STORAGE - THE PROGRAM USES MEMORY 0-17777 


2.5 PRELIMINARY PROGRAMS 
DEKBA THROUGH DEKBF 


3.0 LOADING AND STARTING PROCEDURE 
LOAD PROGRAM INTO MEMORY USING ABS LOADER 
LOAD ADDRESS 200 
SET SW12 IN DESIRED POSITION (SEE SEC 4.0) 
PRESS START. 
ASTERISK *’*’’ WILL BE PRINTED AFTER EACH PASS. 
“CEMJA DONE!’ WILL BE PRINTED AFTER 6 PASSES. 
PASS COUNT MAY BE MONITORED IN THE DISPLAY REGISTER. 
NOTE: THIS PROGRAM SAVES THE LOADERS (BOOT AND ABS), TO 
RESTORE THE LOADERS, RESTART AT 162. 


ee ee ee ee ed cee ee ee ee eet et 
DONO WEWH—-OO@OnNC VF UN —OVOenwe VPWwN—-OvDOea™~ 


3 ae ACT11 OPERATION 

3 If THE PROGRAM JS RUN IN QUICK VERIFY MODE UNDER ACTI1 THE 
140 PROGRAM 1S DONE AFTER THE FIRST PASS. 

4 

14g 4.0 SWITCH SETTINGS 

4 

144 Swi5 = 1 OR UP.... HALT ON ERROR 

145 NOTE: If SwW15=1 WHEN AN ERROR OCCURS THE PROGRAM WILL 
146 HALT, AND THE CORRECT DATA WILL NOT BE LOADED iNTO THE 
147 FAILING ADDRESS. IF SW15 1S RAISED AFTER THE ERROR 
148 TYPEOUT BEGINS THE PROGRAM WILL HALT WHEN THE TYPEQuUT 
149 COMPLETES, AND THE CORRECT DATA WILL BE LOADED INTO 
150 THE FAILING ADDRESS. 

152 Swi4 = 1 OR UP.... LOOP SUBTES! 

136 Swi3 = 1 OR UP..... INHIBIT ERROR TYPEOUT 

1 

156 Swi2 = 1 OR UP....INHIBIT USE OF MEMORY MANAGEMENT 

157 NOTE: INHIBITING THE USE OF MEMORY MANAGEMENT (AN 
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BE DONE ONLY WHEN THE PROGRAM JS STARTED. 
If THE USE OF MEMORY MANAGEMENT IS INHIBITED THE 


LAST 


SEQ 0006 


mm re ee ee er ee ee oe ee ee 
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5.0 
5.1 


6.0 
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ADDRESS AS TYPED BY THE PROGRAM WILL ONLY REFLECT THE 
AMOUNT OF MEMORY UP TO 28K (LAST ADDRESS = 160000). 


Swil = 1 OR UP..... INHIBIT SUBTEST ITERATION 
Swi0 = 1 OR UP..... RING BELL ON ERROR 


SW9 = 1 OR UP...... DISPLAY ERROR COUNT IN DISPLAY 

REGISTER : 

Sw9 = 0 OR DOWN... DISPLAY PASS COUNT IN DISPLAY 

REGISTER 

SW8 = 1 OR UP..... HALT PROGRAM UNRELOCATED & RESTORE 
LOADERS. 

SW6 = 1 OR UP..... USE 18 BIT UNIBUS MAPPING ONLY 


(TEST ONLY FIRST 128K OF MEMORY) 
SUBROUTINE ABSTRACTS 
SCOPE 


THE PROGRAM STORES IN R1 THE PC OF THE LAST TES? SUCCESSFULLY 
EXECUTED AND MAY BE USED AS AN AID IN DEBUGGING IF THE PROGRAM 
"BOMBS" BECAUSE OF A HARDWARE FAILURL. 


ERRORS 


THESE TESTS PRINT OUT THE PC WHERE THE ERROR WAS DETECTED, THE 
FAILING ADDRESS, THE GOOD DATA, AND THE BAD DATA I.E. 


PC=XXXXXK ADDRESS AAAAAA GOOD DATA GGGGGG BAD DATA BBBBBB 


THE ADDRESS OF THE FAILING LOCATION IS THE ‘TRUE 22 BIT 
PHYSICAL ADDRESS. 


NOTE: WHEN TESTING MEMORY LOCATIONS 0-77776 THE PC TYPED WILi 
ah Ae cba OF 100000 GREATER THAN RELFECTED IN THE PROGRA™ 
LISTIN 

THE ADDRESS OF THE BAD DATA IS IN (R2) <2 

THE GOOD DATA IN RO 

THE BAD DATA IN R35 

THE ADDRESS OF GOOD DATA IS IN R4& ‘(RANDOM DATA TEST ONLY) 

WHEN AN ERROR IS DETECTED WHEN EXERCISING THE MEMORY USING THE 
WORST CASE NOISE PATTERNS, THE USER SHOULD RESTART THE PROGRAM 
SELECTING PROGRAM #2(SEE SEC 9.1 FOR DETAILS) SELECTING THE 
APPROPRIATE PARAMETERS. THE USER CAN USE THE PC AND ADDRESS 
OF THE FAILURE TO SELECT THE PROPER CORE BANK(S) AFFECTED AND 
ALSO THE SPECIFIC PATTERN. THIS ALLOWS MAXIMUM SCOPE 
CAPABILITIES. 


PARITY ERROR 


SEQ 0005 
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If A PARITY ERROR IS DETECTED THE PROGRAM wilil [YPE: 
PARITY ERROR 

PC =PPPPPP MEMORY ADDRESS 1S AAAAAAAA 

PARITY ERROR REG=EEEEEE 7777777777 MARGIN 


eee 


EEE 


H 
CEMJADO 11/70 MEM TST MACY11 30A(1052) O9-FEB-79 12:56 PAGE 8 


273 EITHER THE PASS COUNT OR THE ERROR COUNT IS DISPLAYED IN_ THE 
274 DISPLAY REGISTER. THE COUNT TO BE DISPLAYED IS CONTROLLED BY 
275 THE SETTTING OF SWITCH 9,.BLANK | 


CEMJAD.P11  O9-FEB-79 11:18 SEQ 0007 | 
220 | 
221 | 
222 
223 WHERE PPPPPP 1S THE CONTENTS OF THE PC WHEN THE PARITY ERROR 
224 OCCURRED, AAAAAAAA IS THE ADDRESS OF THE WORD, EEEEEE IS THE | 
225 CONTENTS OF THE MEMORY ERROR REGISTER, AND 777777777? IS THE | 
£26 MARGIN SETTING AT THE TIME OF THE PARITY ERROR. | 
228 AFTER REPORTING THE PARITY ERROR THE PROGRAM WILL START OVER. 

230 7.0 RESTRICTIONS | 

232 7.1 STARTING RESTRICTION | 

235 PROGRAM MUST NOT BE RELOCATED WHEN RESTARTING 

235 7.2 OPERATIONAL RESTRICTION 

236 PROGRAM CHECKS CONTIGUOUS MEMORY IF A PARITY ERROR TRAP OCCURS 

237 WHEN THE PROGRAM IS RELOCATED PROGRAM ACTION IS UNDEFINED. IF 

238 PARITY MEMORY 1S AVAILABLE OR SELECTED THE 3XOR9 TEST PATTERN 

239 1S FOR PARITY MEMORY ONLY. DO NOT POWER FAIL THE PROGRAM WHEN 

240 THE PROGRAM IS RUNNING RELOCATED. | 

262 8.0 MISCELLANEOUS | 

Pal If THE PROGRAM HALTS IN THE TRAP/INTERRUPT VECTOR AREA | 

245 (0-1000), EXAMINE REGISTER 6 (THE STACK PTR). R6 CONTAINS THE 

246 ADDRESS WHERE THE PC OF THE INSTRUCTION THAT CAUSED THE TRAP | 

247 ABORT IS STORED. SEE ALSO R1 (R1 SPECIFIES THE LAST TEST | 

248 COMPLETED). | 

250 NOTE: THE PDP-11/70 WILL DISPLAY THE TRAP VECTOR ADDRESS*4 IN | 

251 THE ADDRESS LIGHTS. THUS A TRAP TO 4 (BUS ERROR) WILL DISPLAY | 

252 10 IN THE ADDRESS LIGHTS. | 
i 

254 8.1 STACK POINTER 

255 THE STACK POINTER IS INITIALLY SET TO 520 | 

256 AND 1S RESET TO THIS VALUE AT THE START OF EACH SUBTEST. 

258 8.2 PASS COUNT | 

259 SIX PASSES ARE REQUIRED FOR COMPLETION OF THIS PROGRAM; AT 

260 WHICH TIME AN ‘‘*’’ WILL BE PRINTED. THE PASS COUNT MAY BE | 

261 OBSERVED BY TURNING THE SWITCH TO THE DISPLAY POSITION. (THE 

262 PASS COUNT 1S ALSO STORED IN LOCATION 1000.) THE PASS COUNT | 

263 SHOULD BE MONITORED IN THE EVENT THAT THE PROGRAM ENTERS AN 

264 UNDEFINED LOOP..BLANK 1 

265 8.3 ERROR COUNT 

266 EACH TIME AN ERROR OCCURS, THE ERROR COUNT IS INCREMENTED. 

267 THE ERROR COUNT CAN BE OBSERVED BY TURNING THE SWITCH TO THE 

268 DISPLAY POSITION AND SETTING SWITCH 9. (THE ERROR COUNT IS 

269 ALSO STORED IN LOCATION 1002.) THE PROGRAM WILL COUNT 17777(8) 

270 ERRORS: THE ERROR COUNT IS NOT INCREMENTED PAST THIS 

27) VALUE..BLANK 1 | 

272 8.4 DISPLAY REGISTER 
| 
| 
j 
| 
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8.5 POWER FAIL 


SEQ 0008 


EO a LD 
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278 
279 
280 
281 THE PROGRAM MAY BE POWER FAILED WHEN RUNNING. WHEN THE POWER 
282 RETURNS THE PROGRAM WILL CONTINUE IN SEQUENCE.**CAUTION®*®* DO 
283 NO] TURN POWER OFF/ON UNTIL THE MESSAGE ‘POWER FAILED’ HAS 
$Re BEEN TYPED. THIS IS BECAUSE THE STACK MAY OVERFLOW. 
286 8.6 EXECUTION TIME 
+H EXECUTION TIME 1S DEPENDENT ON THE AMOUNT OF MEMORY. 
289 9.0 PROGRAM DESCRIPTION 
290 THE PROGRAM VERIFIES EACH ADDRESS BY WRITING THE VALUE OF EACH 
291 ADDRESS INTO ITSELF STARTING AT LOCATION 20000 AND ENDING AT 
292 1HE LAST LOCATION IN MEMORY. THE VALUE OF THE LAST LOCATION 
293 +2 1S TYPED ON THE TTY. NEXT THE YALUES WRITTEN ARE VERIFIED. 
294 TO COMPLETE THE ADDRESS TEST THE COMPLEMENT VALUE OF EACH 
295 MEMORY ADDRESS 1S WRITTEN STARTING AT THE LAST MEMORY ADDRESS 
296 AND ENDING AT ADDRESS 20000. THE WRITTEN COMPLEMENT VALUES 
297 ARE THEN VERIFIED. THE NEXT PHASE OF TESTING INCLUDES 
298 READING, WRITING AND CHECKING MEMORY USING WORST CASE NOISE 
299 TEST PATTERN. A SUBTEST 1S DEDICATED 10 CHECKING THE PATTERN. 
300 THE TEST PROCEEDS BY EXERCISING EACH BANK OF MEMORY USING THE 
301 WORST CASE PATTERN. THE PROGRAM THEN CHECKS MEMORY USING 
502 RANDOM DATA (RANTST). THIS ROUTINE MOVES THE PROGRAM CODE 
303 THROUGHOUT MEMORY STARTING AT LOCATION 20000, AND RELOCATES 
304 THE DATA BY A 32(10) WORD OFFSET ON EACH SUBSEQUENT 
305 RELOCATION. 1.E., FIRST RELOCATION IS 10 20000, NEXT IS 10 
506 20100, THEN 20200, ETC. AFTER RELOCATION THE CODE MOVED IS 
307 CHECKED AGAINST THE ORIGINAL CODE (0-17776). WHEN THE RANDOM 
308 DATA TEST IS COMPLETE THE PROGRAM THEN SUCCESSIVELY ROTATES A 
309 0 BIT (ROTO) AND A ‘1° BIT (ROTI) THROUGH ALL OF MEMORY. WHEN 
310 ALL TESTING 1S COMPLETE THE PROGRAM INCREMENTS THE PASS COUNT 
311 (LOCATION 1000) AND RESTARTS BEGINNING WITH THE WORST CASE 
312 NOISE TESTS. AN ASTERISK (*) WILL BE TYPED ON COMPLETION OF 
313 FACH PASS, AND WHEN 6 PASSES HAVE BEEN COMPLETED THE PROGRAM 
514 WILL TYPE ‘CEMJA DONE’ AND RESTART THE PROGRAM BEGINNING WITH 
4 THE MEMORY ADDRESS TESTS. 

6 
317 
318 P) 
319 -NLIST MD,MC 
320 LIST ME 
321 . ABS 
322 -TITLE CEMJADO 11/70 MEM TST 
323 ~SBTTL STARTING INST & DEFINITIONS 
356 -COPYRIGHT 1973,1979 DIGITAL EQUIPMENT CORP., MAYNARD,MASS. 
326 -THIS TEST CHECKS THAT ALL MEMORY ADDRESSES ARE UNIQUE USING ADDRESS TESTS 
327 -AND CHECKS DATA RELIABILITY OF MEMORY USING WORST CASE NOISE TEST PATTERNS 
328 -A RANDOM # PATTERN (PROGRAM CODE RELOCATED), A ROTATING O AND ROTATING 
340 :1 PATTERN. 


331 “LOADING AND STARING INSTRUCTIONS 
332 —sLOAD ADDRESS 200 AND STAR? | 
352 “THIS PROGRAM ALSO RELOCATES THE ABS AND BOOT LOADERS TO ALLOW TESTING 
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i ets CF 


% 
R1=%1 
R2=%2 
R3=%5 
R4=%4 
R5=%5 
SP=%6 
PC=%7 
R10=%0 
R11=%1 
R12=%2 
R15=%3 
R14=%4 
R15=%5 
:STATUS REGISTER (PSW) BIT ASSIGNMENTS 
‘ C=1 :C BIT 
V=2 :V BIT 
1=4 :Z2 BIT 
N=10 iN BIT 
T=20 :*T* BIT 
PRTY7=340 :PRIORITY LEVEL 7 
PRTY4=200 >PRIORITY LEVEL 4 
KM=000000 = KERNEL MODE 
$m=040000 : SUPERVISORY MODE 
UuM=140000 sUSER MODE 
PKM=000000 ;PREVIOUS KERNEL MODE 
PSmM=010000 :PREVIOUS SUPERVISORY MODE 
PumM=030000 : PREVIOUS USER MODE 
REG=004000 :SELEC] R10-R15 
-VECTOR ADDRESSES 
ERRVEC=4 sADDRESS OF ERROR VECTOR 
RESVEC=10 : ADDRESS OF RESERVED INST. 
TBITVEC=14 
TRIVEC=14 : ADDR 
BPTVEC=14 : ADDRESS” OF ‘BREAKPOINT’ TRAP VECTOR 
1OTVEC=20 :ADDRESS OF 10 
PFVEC=24 ADDRESS OF 
EMTVEC=30 ; ADDRESS OF 
TRAPVEC=34 ; ADDRESS OF 
TKVEC=60 s ADDRESS OF 
TPVEC=64 ; ADDRESS OF 
PIRVEC=240 ; ADDRESS OF 
FPEVEC=244 s ADDRESS OF 
MMVEC=250 > ADDRESS OF 
aia ies ADDRESSES 
w=177776 sADDRESS OF 
fei 177774 : ADDRESS OF 


is 
PAGE 11 
STARTING INST & DEFINITIONS 


TO RESTORE THE LOADERS RESTART AT 162. 
ACK POINTER IS SET AT 500 
AN ASTERISK ‘®*' 


; ADDRESS OF ‘T* BIT TRAP VECTOR 
ESS OF ‘TRACE’ TRAP VECTOR 


WILt BE PRINTED ON COMPLETION OF EACH PASS, AND 
THE PROGRAM NAME WILL BE PRINTED WHEN TEST IS COMPLETE. 


:GENERAL REGISTER ASSIGNMENTS 
RO=%0 


EC 
POWER eek TRAP VELTOR 
VECTOR 
TTY KEYBOARD INTERRUPT VECTOR 
TTY ge tft INTERRUPT VECTOR 
FLOATING POINT INT. 
MEM MGMT ERROR TRAP VECTOR 


STATUS REGISTER 
STACK LIMIT REGISIER 


SEQ 0010 | 


OE AS ET 
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SEQ 0011 | 


CEMJAD.P11 09-FEB-79 1 
390 177772 
391 177770 
392 177746 
393 177560 
394 177562 
395 177564 
396 177566 
397 177570 
398 177570 
399 
400 
401 000500 
402 
403 
404 000100 
405 040000 
406 020000 
407 010000 
408 001000 
409 000400 
410 000100 
41} 

412 

413 177572 
414 177574 
415 177576 
416 172516 
417 

418 172300 
419 172302 
420 172304 
421 172306 
422 172310 
423 172312 
424 172314 
425 172516 
476 

427 172340 
428 172342 
429 172344 
450 172546 
431 1725350 
432 172352 
433 172554 
434 172356 
435 

436 

437 

438 104400 
439 104000 
440 

441 

442 000006 
443 000000 
444 


PIRQ=177772 


DISPLAY= 177570 


; INITIAL STACK POINTER SETTING 
STKPTR=500 


;MISCELLANEOUS at ASSIGNMENTS 


sMEMORY 


hun nwsew 
nunn 
oO 
oO 
Qo 
oO 
So 
i) 


000100 


YuNSs WoOwwooow 


KIPDR> 
KIPDR6 
KIPDR7 


KIPARO 
KIPAR1 
K ]PAR2 


nm 
— 
uv 
J 
Pe] 
= 
nunn nh wn 
smo 


RKKH 

wt ee te pe 

,v vu Uv U 

>>> >} 

Dawn 

oun ew 
OLreooefnvo & 


WAI 


KI PAR? = 


INSTRUCTION EQUATES 
HLT=TRAP 


;MISC. 


SCOPE=EMT 
EQUATES 

RW=6 

UP=0 


;ADDRESS OF PROGRAM INTERRUPT REQUEST 


;ADDRESS OF MICRO BREAK REGISTER 
ADDRESS OF 11/70 MEMORY CONTROL REGISTER 


; ADDRESS OF KEYBOARD CSR 

; ADDRESS OF KEYBOARD BUFFER 
;ADDRESS OF TELEPRINTER CSR 
ADDRESS OF TELEPRINTER BUFFER 
ADDRESS OF CONSOL SWITCH REGISTER 
;ADDRESS OF CONSOL DISPLAY REGISTER 


ore REGISTER were ASSIGNMENTS 


ADDRESS OF MEM MGMT REGISTER 


S 2 
“ ADDRESS OF MEM MGMT REGISTER SR3 


;ADDRESS OF KERNEL 'I' PAGE 
DESCRIPTOR REGISTERS 


;ADDRESSES OD KERNEL ‘I" SPACE 
;PAGE ADRESS REGISTERS 


:SCOPE IS AN EMT TRAP 


;R/w BIT IN PDR eeretcac’ 
“UP BIT IN PDR REGISTERS 


eqre  = r e  e  ———eOOO 
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000000 
000002 
000004 
000006 
000034 
600036 
000046 


000052 


000112 
000162 


000174 


000200 
000204 


000250 
000252 


000254 


000272 
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000090 
000000 
000000 


001126 
000002 
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000500 
002016 


000500 
002376 


000016 
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STARTING INST & DEFINITIONS 


. 20 
-wORD 0 :SPECIAL TRAP/INTERRUPT CATCHER IF PRO- 
~ WORD 0 : GRAM HALTS AT 0 THEN ADDRESS WAS NOT 
>LOADED PROPERLY FROM VECTOR. 
. WORD ERRTRP 
-WORD = RTi 
.=TRAPVEC 
. WORD ERROR 
-WORD PRITY7 
=46 
SENDAD 
=52 
40000 
-=100 
CRLF: JSR RS. SPRINT 
SCRLF 
RTS PC 
RELFL: .WORD 0 
SAVPC2: — 0 
PONE : MOV #500,SP ;STARTING ADDRESS TO RELOCATE LOADERS. 
JSR PC, SRLDOR 
HALT 
oto PTwO 
PTWO: MOV #500,SP :STARTING ADDRESS OF MEMORY TEST. 
Iy550 aaSTART :GO TO START OF TEST 
. WORD 0 :MEMORY MANAGEMENT TRAP VECTOR. 
-wORD 0 


ROUTINE TO SAVE REGISTERS ON THE coe 
;CALLED BY SAVE vr OR JSR PC, $SAV 


$SAVR: 


MOV P)+,1$ ; SAVE RETURN PC 
MOV R5,-(SP) 
MOV R4,-(SP) 
MOV R3,-(SP) 
MOV R2,-(SP) 
MOV R1,-(SP) 
MOV RO,-(SP) 


SEQ 0012 | 


— inns 
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CEMJAD.P11 09-FEB-79 11:18 STARTING INST & DEFINITIONS SEQ 0013 | 
$02 000274 012707 MOV (PC)+,PC > RETURN | 
293 000276 000000 1$: 0 *CONTAINS RETURN ADDRESS | 
505 “ROUTINE TO RESTORE REGISTERS SAVED ON THE STACK 
$06 -CALLED BY RESTORE MACRO OR JSR PC,S$REST 
$07 000300 012667 000016 SRESTR: MOV (SP)+,1$ -SAVE RETURN PC 
$08 000304 012669 MOV (SP)+,RO 
509 0003 012601 MOV (SP)+,R1 
$10 000310 012602 MOV (SP)+,R2 
511 000312 012603 MOV (SP)+,R3 
$12 000314 012604 MOV (SP)+,R4 
513 000316 012605 MOV (SP)+,R5 
514 000320 012707 MOV (PC)+,PC > RETURN 
a2 000322 000000 1$: 0 ‘CONTAINS RETURN ADDRESS 
517 SBTTL POWER FAIL ROUTINE 
518 000502 =502 
519 :POWER FAIL ROUTINE 
520 -THE POWER DOWN ROUTINE SAVES THE KEYBOARD STATUS, THE GENERAL REGISTERS 
521 -(RO-R5), AND MEM MGMT REGISTERS (KIPDRO“KIPDR7, KIPARO-KIPAR7,SR3,5R2,SRC) 
522 "ON THE STACK AND SAVES THE STACK POINTER IN PFSTK BELOW. 

523 000502 013746 177560 PDWN: MOV aaTKS,-(SP) :SAVE KEYBOARD STATUS 

$24 000506 004767 177542 JSR PC, $SAVR °GO SAVE REGISTERS ON THE STACK 
§25 000512 005737 000762 1ST aeMMAVA -CHECK IF MEM MGMT IS AVAILABLE 
526 000516 001421 BEQ 3% : BRANCH IF NOT AVAILABLE 

$27 000520 013746 177572 MOV avSRO,-(SP) :SAVE SRO 

§28 000524 013746 177576 MOV aaSR2,-(SP) “SAVE SR2 

$29 000530 013746 172516 MOV aaSR3,-(SP) :SAVE SR3 

530 000534 012700 172300 MOV #KIPDRO,RO -GET ADDRESS OF KIPDRO 

531 000540 012702 000010 MOV #8.,R2 

532 000544 010203 MOV R2,R3 

533 000546 012046 1$: MOV (RO)+,-(SP) SAVE KIPDRO-KIPDR7 

534 000550 077202 $0B R2,1% 

535 000552 012700 172340 MOV #K IPARO,RO :GET ADDRESS OF KIPARO 

536 000556 012046 2$: MOV (RO)+,-(SP) -SAVE KIPARO-KIPAR7 

537 000560 077302 SOB R3,2$ 

§%8 000562 010627 3$: MOV SP, (PC)+ -SAVE STACK PTR IN FOLLOWING LOCATION 
539 000564 000000 PFSTK: .WORD 0 “CONTAINS STACK PTR AFTER POWER FAIL 
540 000566 012737 000576 000024 MOV #PUP, aaPFI'ES -SET POWER FAIL VECTOR TO PUP ROUTINE 
we 000574 000000 HALT 

$43 -POWER UP ROUTINE. 

544 000576 000240 PUP: NOP 

545 000600 013706 000564 MOV @aPFSTK,SP -SET STACK PTR 

546 000604 005767 000152 TST MMAVA “CHECK IF MEM MGMT IS AVAILABLE 
547 000610 001421 BEQ 4% 

$48 000612 012700 172360 MOV #K1PAR7+#2,R0 -GET ADDRESS OF KIPAR7+2 

549 000616 012702 000010 MOV #8. ,R2 

§50 000622 010203 MOV R2,R3 

551 000624 012640 1$: MOV (SP)+,-(RO) RESTORE KIPAR7-KIPARO 

552 000626 077302 $0B R3,1$% 

553 000630 012700 172320 MOV #KIPOR7+2,R0 :GET ADDRESS OF KIPDR7+2 

554 000634 012640 2$: MOV (SP)+,-(RO) “RESTORE KIPDR7-KIPDRO 

555 000636 077202 $0B R2,2$ 

$56 000640 012637 172516 MOV (SP)+,a#SR5 “RESTORE SR3 

557 000644 012637 177576 MOV (SP)+,a#SR2 sRESTORE SR2 
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005015 
000752 
000000 
000000 
000000 
000000 


000000 
060000 
000246 


000205 


000 
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177572 
0046 30 


0045¢2 
177496 
177560 
0U0502 
V77772 


000046 


04752C 
040506 


000 


000016 
177762 
177776 
000014 


000024 


042527 
046111 


000010 


8 
O9-FEB-79 12:56 PAGE 15 
OWER FAIL ROUTINE 


RESTORE SRO 
;CHECK IF PARITY REGISTERS ARE fF NABLFD 
:BRANCH IF NOT 


:60 ENABLE PARITY REGISTERS 
;RESTORE REGISTERS FROM STACK 
:SET POWER FAIL TRAP 10 PDWN ROUTINE 


;DELAY WAITING FOR TTY MOTOR 
;G0 TO PRINT ROUTINE 


;RE TURN 


: CONTAINS PASS COUNT 


:CONTAINS ITERATION PATTERN 
> CONTAINS ERROR COUNT 


;CONTAINS DISPLAY REGISTER iMAGE 


ACV (SP) ¢,@@SRO0 
4%: 1S! PARAVA 
BEQ 5% 
JSR PC, MAME 
S$: 
JSK PC ,SRESTR 
MOV (SP)* aatKs 
MOV @PDWUN, aaPFVEC 
CLR (PC)¢ 
10%: WORD 0 
11$: INC 10% 
BPL 11% 
JSR RS, ,SPRINI 
PWREAIL 
6$: NOP 
RT] 
PWREFAIL:.ASCI] <15><12>"POWER FAILED’ 
SCRLF: .ASCIZ <15><12> 
.SBTTL TAGS & PRINT ROUTINE 
-EVEN 
]CNT: .wORD OQ 
ICOUNT: .WORD 0 
ERCNT: O 
LDDISP: 0 
MMAVA 


RELOCF: .WwORD 0 
COUNT: .WORD 0 


MEM MGMT AVAILABLE INDICATOR 
;0=NOT AVAIL, -~1=AVAIL(18 BIT MODE) 


:-2=AVAIL(22 BIT MODE) 


: CONTAINS RELOCATION FACTOR 
> TEMPORARY WORKING LOACATION 


;ROUTINE TO PASS yt Fe ADDRESS 10 TYPE ROUTINE GELOW 


;CALL: JSR RS, SPRIN 
MESSAGE ADDRESS 
SPRINT: NOP 
MOV (R5)¢,1$ 
ADD RELOCF ,1$% 
MOV aePSu,- (SP) 
JSR PC,.TYPE 
1$: WORD 9 
RTS R5 


;ROUTINE TO TYPE ASCI1 MESSAGE. 


;GET MESSAGE ADDRESS 

-ADD RELOCATION FACTOR 
:PUSH PSW ON THE STACK 
sCALL TYPE ROUTINE 
-CONTAINS MESSAGE ADDRESS 
>RETURN 


MESSAGE MUST TERMINATE WiTH A O BYTE. 


“THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 


*CALL: TYPE 
MESADR 


; TAGS USED BY ae TYPE ROUTINE BELOW 


$NULL: .BYTE 
SFILL: “Brie Pa 
STPFLG: BYTE 0 


:MESADR 1S FIRST ADDRESS OF ASCIZ STRING 


;CONTAINS NULL CHARACTER 
- CONTAINS # OF FILLER CHARACTERS 
“CONTAINS TELEPRINTER AVAILABLE FLAG 


SFO O04 


——— lee 


- ee EE Ee ee ~ --—- 
—_ eS —— ns 


a eee —— 


CEMJADO 11/70 MEM TST 


CEMJADLF 


11 


001025 
001024 


001056 
001062 


001066 
001070 


001074 
001100 
007102 
001106 


001110 
001114 
001116 
001124 


001126 
001152 
001134 
001136 
001140 


001172 


001174 
001200 


001204 
001206 
001214 


000 
177564 
177566 
010046 
017600 
062765 


112046 


000002 


004767 
122726 
001366 
016746 


105566 
002770 
004767 
000772 


105777 
100375 
110677 
000207 


005737 


000000 


005067 
000137 


000240 
022767 
061405 


MACY11 304:1052) 
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000002 
000002 


000026 
000012 


177724 


000001 
000002 


177710 
000002 


177570 


177770 


000376 
177606 


177600 


177740 
000200 


017777 


000002 


177702 


177542 


09-FEB-79 


C 
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TAGS & PRINT ROUTINE 


SIKFLG: 


SIPS: 
$IPB: 
TYPE: 


1$: 


2$: 
38: 


4%: 


TYP]T: 


BYTE 
- WORD 


(RO)+,=-(SP) 
2% 

(SP)¢ 
(SP)+,RO 
PC,TYPIT 
Hie, (SP)¢ 


SNULL.-(SP) 


1(SP) 

3% 
PC,TYPIT 
4$ 


asiPs 
2(SP) ,astPB 
PC 


70/377 = AVAIL/NOT AVAIL 

- CONTAINS KEYBCARD AVAILABLE FLAG 
> ADDRESS OF TLEPRINTER STATUS REG 
: ADDRESS OF TELEPRINTER DATA BuFé 


ISTE 
ER 


:GET MESSAGE ADDRESS 
;ADJUST RETURN PC 


;PUSH CHARACTER TO BE TYPED ONTO STACK 
“BRANCH IF NOT THE TERMINATOR 

;POP TERMINATOR CHAR OFF THE STACK 
;RESTORE RO 


:RETURN TO CALLER 
; TYPE CHARACTER 


;CHECK IF CHARACTER WAS A LINE FEED 
“BRANCH IF NOT LINE FEED 

;GET # OF FILLERS REQUIRED AND FILLER 
; CHARACTER. 


:DECREMENT FILLERS REQ. COUNT 
sBRANCH IF NO MORE FILLERS ARE REQUIRED 
; TYPE FILLER CHARACTER 


;WAIT FOR OUTPUT DEVICE 
;OUTPUT CHARACTER 


DO000000000000000000OOOOOOOOOOO0L 
ERROR TRAP SERVICE eure 


ERRTRP: 


1$: 


2$: 


ERROR: 


TST 


CLR 
JMP 


.SBTTL 
NOP 
CMP 
BEQ 


aaSwk 
~*4 


R5, SPRINT 
R5,$PRINI 


1$ 
a#200 


;CHECK IF HALT ON ERROR 


mat If NO HALT ON ERROR 

> HAL 

“CHECK IF PREV TRAP TO & REPORTED 
sCONTAINS ERROR REPORTED FLAG 
BRANCH IF NOT REPORTED 

;SET "NOT REPORTED" 

;GET PC OFF STACK 


:GO TO FORMAT ROUTINE 
:GO TO PRINT ROUTINE 


:GO 10 PRINT ROUTINE 


SERROR! SECOND TRAP TO & OCCURRED 
sBEFORE FIRST WAS PRINTED 


RESTART AT 200 


ERROR SERVICE ROUTINE 
; ERROR SERVICE CALLED BY JSR PC.ERROR INSTRUCTION 
;OR HLT (A TRAP INST) 


#17777,ERCNT 


4$ 


;CHECK FOR MAX ERROR CNT 


SEQ 0015 | 





y) 
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EE EE EE SA 
-_ 


———_<-— = ee eR OL LE LE LL eeeeeeereerer_ 


CEMJADO 11/70 MEM TST MACY11 30A(1052) O9-FEB-79 
CEMJAD.P11 O9-FEB-79 11:18 ERROR SERVICE ROUTINE SEG 001 

670 001216 062767 000001 177532 ADD #1, ERCNT : INCREMENT es COUNT 
671 001224 032737 061000 177570 4$: BIT WBIT9 ,aaSuR -SWITCH 9 U 
672 001232 901411 BEQ 5% 
673 0012346 042767 017777 177516 BIC #17777, LODISP ;SAVE RELOCATION 8ITS 
674 001242 056767 177510 177510 BIS ERCNT,LDDISP *LOAD ERROR COUNT 
675 001250 016737 177504 177570 MOV LDDISP,@#DI1SPLAY ;LOAD DISPLAY REGISTER 
676 001256 005757 177570 S$: TST aaSwR : HALT ON ERROR 
677 001262 100002 BPL .*6 
678 001266 000000 HALT 
679 001266 000470 BR 3$ 
680 001270 032737 020000 177570 BIT #20000 ,a#SwWR :PRINT OUT DESIRED? 
681 001276 001051 BNE 1$ :BRANCH IF NO PRINTOUT 
682 001300 004767 176750 JSR PC,SSAVR :GO SAVE REGISTERS 1 THE STACK 
683 001304 016602 000014 MOV 14(SP),R2 :GET PC OF ERROR CAL 
684 001310 004767 000240 JSR PC, $FORMO :GO 10 FORMAT ROUTINE 
685 001314 004567 177450 JSR R5S,SPRINT :60 TO PRINT ROUTINE 
686 001320 001475 ERRPC 
687 001322 004567 177442 SR R5,$PRINT -G0 TO PRINT ROUTINE 
688 001326 002551 DIGITS 
689 001330 016602 000004 MOV 4(SP),R2 -GET FAILING ADDRESS (IN R2) 
690 001334 004767 000214 JSR PC, SFORMO :GO 10 FORMAT ROUTINE 
091 001340 004567 177424 JSR RS, SPRINT :GO TO PRINT ROUTINE 
692 001344 002327 ADRESS 
693 001346 105767 003221 TST8 PENFLG -BRANCH IF PARITY ERROR DETECTED 
694 001352 001017 BNE 11$ :BUT NOT FOUND 
695 001354 105767 003212 TSTB PEFLG Sy IF PARITY ERROR DETECTED 
696 001360 001006 BNE 10% :BUT FOUND 
697. 001362 004567 177402 JSR RS,SPRINT :GO 10 PRINT ROUTINE 
698 001366 001501 XMTDAT 
699 001370 010046 MOV RO,-(SP) -PUSH VALUE TO TYPED ONTO STACK 
700 001372 004767 000416 JSR : :GO PRINT VALUE 
701 001376 10$: 
702. 001376 004567 177366 SR RS, SPRINT :GO 10 PRINT ROUTINE 
703 001402 001514 RECDATI 
704 001404 010546 MOV R3,-(SP) -PUSH VALUE TO BE TYPED ONTO STACK 
705 001406 004767 000402 JSR PC,O2A 
706 001412 004767 176462 11$: JSR PC,CRLF 
707 001416 004767 176656 JSR PC, SRESTR >RESTORE REGISTERS FROM STACK 
708 001422 032737 002000 177570 I$: BIT #2000, aavSuWR :RING BELL CN ERROR 
709 001430 001403 BEQ 2$ 
710 001432 004567 177332 JSR RS,SPRINT -GO TO PRINT ROUTINE 
711 001436 001527 BELL 
712. 001440 005737 177570 2$: TST aaswe >HALT AFTER PRINT OUT 
713 001444 100001 BPL .+G 
714 001446 000000 HALT 
715 001450 010042 3$: MOV RO,-(R2) >RESTORE CORRECT DATA TG ADDRESS 
716 001452 062702 000002 ADD Re 
an 001456 000002 RT] 
719 001460 051124 050101 042520 TRAP4: .ASCII] ‘TRAPPED 10 4 ' 
720 001466 020104 047524 032040 
721 001474 040 
722 4001475 120 0365035 OOO ERRPC: .ASCIZ ‘PC=' 
723 001501 107 047517 020104 XMTDAT: .ASCIZ ‘GOOD DATA=" 
724 001506 040504 040524 000075 
725 001514 041040 042101 042040 RECDAT: .ASCIZ ‘ BAD DATA=' 


eee cele meme aa at A Le CE TL LO LLL ALLE LLL LLL EL 


CEMJADO Bi, MEM TS! 


CEMJAD.P 


0 
001764 


052101 
007 


120 
020131 


020122 

000 
003554 
oeeree 


046767 
046767 


—_szz LLL LL LLL LLL 


09-FEB-79 
ERROR SERVICE ROUTINE 


MACY11 30A(1052) 
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036501 
00 
042522 


177204 
177176 
176460 
002551 


000002 


177144 
000001 
017777 


001774 
000006 


160000 


000005 


000010 


000003 
002312 


000 
052111 


047522 
036507 


000014 
000152 


177572 


BELL: 
PARREG: 


-ASCIZ 
eASCIZ 


E 
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oe ere eee ie 


<7> 
/PARITY ERROR REG=/ 


EVEN 
ROUTINE TO PLACE ASCI! VALUE OF AN ADDRESS IN TO ADDRESS MESSAGE 


$F ORMO: pet 


118: 


1$: 


128: 


2$: 


3$: 
418%: 


RELOCF ,11$#2 
RELOCF ,41$#2 
PC, SSAVR 
ADIGITS,R4 


1$ 
#17777,R1 
R1 
R1 
R1 
RI 


R1 
@PARTAB(1) ,R2 


R2 
R53 


RO, .74 
+ Sah 


RS 
DIGTAB(3),(4)¢ 
R3 
RO 
2$ 
PC, SRESTR 


RELOCF,11$¢2 
RELOCF ,41$¢2 


;GO SAVE REGISTERS ON THE STACK 
;ADDRESS WHERE ASCII 4 ARE STORED 
“WORKING & INDEX REGISTER 
— ADDRESS 

V 


;CHECK IF MEM MGMT IS AVAILABLE 
;BRANCH IF NOT AVAILABLE 

;1S MEM MGMT ENABLED 

:BR IF NOT = ZERO 

;SAVE PAR SELECTOR BITS 

; SWAP BYTES 


:FORM INDEX VALUE 


>GET CONTENTS OF PAR 

: SHIFT COUNT 

-SHIFT KIPAR1 6 PLACES LEFT 
:MSB°S GO INTO R35 

:BR IF NOT = ZERO 

>CLEAR PAR SELECTOR BITS 
:FORM 22 BJT ADDRESS 

:IN R2 & R53 


DIGIT COUNT 
PRINT FIRS! DIGI! 


:DIGIT SHIFT COUNT 
;LOAD DIGIT INTO MESSAGE 
;CLEAR INDEX 


:DEC DIGIT COUNT 
;RESTOPE REGISTERS FROM STACK 


— ———— oe eS 


— a ee ee ee ee ee 


{ewe Fee MEM TCT 


CEM JAD .P 


809 


ere eet et et 


O© Op Od Co Op CO OCD CW CO OO OO OO 
—OO@OnNe VIF wWNr—oO 


MIR 


001772 


001774 
001776 


002110 
002112 


002170 


O9-FEB-79 


000207 
172540 


016600 
03 


000000 
000000 
005767 


“37774 30A(1052) 


176254 
000016 
900006 


000260 
000040 
176716 


176176 © 


177772 


017776 
002140 


020000 
005672 


010256 


000004 


09-FEB-79 


F 
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ERROR SERVICE ROUTINE 


PARTAB: 


RTS 


K1PARO 
KI PAR] 
KIPAR2 
KIPAR3 
KIPARG 
KIPARS 
KIPAR6 
K]PAR? 


PC ; RETURN 


ie TO TYPE OCTAL VALUE PUSHED ONTO STACK 
ALL: 


O2A: 


2%: 


LODFLO: 0 
-ROUTINE TO SAVE ABS LOADER 
: LODFLO 


$LDR 


3$: 


2$: 


- WORD 


$20000, RO 


VALUE ,-(SP) :PUSH VALUE ONTO STACK 

PC ,O2A -CALL ROUTINE 

PC, SSAVR :GO SAVE REGISTERS ON THE STACK 
16(SP),R0 ;GET e LUE 

#6,R3 * COUN NYER 

R2 :WORKING REGISTER 

RO 

R2 

#260,R2 :FORM ASCI1 VALUE 

R2,2% -MOVE CHAR TO TYPE LOCATION 
R5,SPRINT :60 10 PRINT ROUTINE 

R2 

RO 

R2 

RO 

R2 

RO 

R2 

Fs 

PC,SRESTR >RESTORE REGISTERS FROM STACK 
Bae ire here 

0 :CONTAINS CHARACTER TO BE TYPED 


PC 

#17776,R0 
#2$,a#ERRVEC 
(RO)+ 


we 
(SP)+,(SP)* 


>SET TIME OUT TRAP VECTOR 


74K MACHINE? 
;YES--GET OUT 


4% 
11500. ¢1#2,R0  ;POINT RO BACK TO LOADER 


RO, $LDRI ; SAVE FOR dats ROUTINE 
#1500. ,R2 ;WORD COUN 

#_LODAR ,R5 s WHERE POADER iS TO BE STORED 
(RO)+,(R3)¢ STORE LOADER 


Sfa 


0018 


CEMSADD 11/70 MEM TST 


CER JAD 


P11 


002220 
002224 


602260 
002262 
002264 


002320 


002522 


0023570 
002374 


000207 


005767 


000000 


002512 
030460 
031462 


032464 
035466 


040514 
115 


000000 


000042 
177702 


177674 


000056 


010256 
002754 


176516 
177630 


052123 


04210: 
020123 


030060 
060 


900 
051501 
000 


MACY11 50A(1052) 
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051105 
042522 
042105 


036525 


G 
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— oe ae -_< —. --— _ _ 


O9-FEB-79 
RROR SERVICE ROUTINE 
DEC R2 
BNE 1$ 
MOV -(R5) ,LSTLOL >SAVE LAST WORD OF LOADERS 
DEC LODELO 
4$: RTS PC >RE TURN 
sROUTINE TO RESTORE LOADER 
SRLDR: TS7 LODFLO 
BNE 2$ 
RTS PC 
2$: MOV $_DR1,R5 -GET FIRST ADDRESS OF WHERE LOADER IS 
;10 BE RESTORED 
MOV #LODAR,RS : ADDRESS WHERE LOADER IS STORED 
MOV #1500. ,R2 ;WORD COUNT 
1$: MOV (R4)+,(R5)* :RESTORE 
DEC R2 
BNE 1$ 
MOV (PC)+,-(R5) *RESTORE LAST LOCATION (SAVED BY SAVE 
LSTLOC: .WORD 0 :LOADERS ROUTINE ABOVE) 
JSR R5, SPRINT :GO 10 PRINT ROUTINE 
SLDRM 
CLR LODFLO 
RTS PC :RETURN TO CALLER 
$LDR1: WORD 0 :FIRST ADDRESS WHERE LOADERS ARETO BE 
sRESTORED 10 
SLDRM: .ASCIZ "LOADER IS RESTORED'<15><12> 
~EVEN 
sDIGIT TABLE 
DIGTAB: *'01 
"193 
"45 
"67 
>MESSAGES 
LST: ESCTT =" ' 
ADRESS: .ASCI1 ‘MEMORY ADDRESS IS ° 
DIGITS: .ASCII] ‘*00000000' 
SPACE]: .ASCIZ ° ° 
PASSMG: .ASCII '‘PASS=' 
PASSNM: .ASCIZ ‘ ' 
EVEN 
PLACE: .WORD 0 
_SBTTL MEMORY ADDRESS TESTS 


:THIS TEST ADDRESS MEMORY UP TO 128K AND PROVES *UNIQNESS* OF ALL 
“MEMORY ADDRESS IN A 32K SEGMENT. THE TES) WRITES INTO EACH MEMORY 
“ADDRESS THE VALUE OF THAT ADDRESS AND THEN CHECKS FOR THE CORRECT 
;DATA IN EACH ADDRESS. 


SEQ 9019 — 


(EM JADD 11/70 MEM TST 
CER jaD.P Pi) 


002376 


002502 


002506 


uv2612 


002616 


002646 
002650 


O9-FEB-79 


012737 


005037 


095067 


maced' 30A(1052) 
11:18 


002440 
000500 
177476 
176550 


000756 


002440 


000752 
000764 
000502 
000026 


176250 
010000 


002612 
177572 
176222 
000100 


000040 
C00040 
000020 
000020 


176150 
002572 


002656 
002706 


005662 
020000 


000002 


000212 


17757C 


177746 


000024 


177570 


000004 


177570 


000004 


000250 


O9-FEB-79 


— EE ee — = 


H 
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MEMORY ADDRESS TESTS 


:THE TWELVE MOST SIGNIFICANT BITS OF THE LAST AVAILABLE MEMORY ADDRESS 
;1S STORED IN R5, 

“STARTING INTRUCTIONS 
LOAD a 200 


, 
° 


START1: 


M 
PERSTRT:. 
C 


PRESS STAR 


STACK POINTER 1S AT. 500 
seeeerererereeRESTART AT 162 TO RESTORE LOADEReeeereeeecerererers 
sy yal ADDRESS TEST 


MOV 


#START1 ,a#212 
#STKPTR,SP 
PC, $LDR 

R5, SPRINT 


a#vERCNT 
a#LDDISP 


@4LDDISP, aDISPLAY 


ASTKPIR, SP 
a#PEFLG 
#14,a@CNTRL 
“isp a 
aa iCnt 
a#RELOCF 
#PDWN,a#PF VEC 
aePFVEC+2 


SEQ 0020 — 


; CHANGE START ADDRESS 

:SET UP STACK PTR 

:GO SAVE MONITOR & LOADERS 
;GO TO PRINT ROUTINE 


;CLEAR ERROR COUNT 

;CLEAR DISPLAY REGISTER STORAGE LOCN 
:CLEAR DISPLAY REGISTER 

STACK PTR 

;CLEAR PARITY ERROR INDICATORS 

SDISABLE CACHE 

;LOAD PARITY ERROR RESTART ADDRESS 

;CONTAINS RESTART ADDRESS AFTER PAR ERR 

CLEAR PASS COUNT 

;CLEAR RELOACATION FACTOR 

;SET POWER FAIL TRAP vECTOR 


:CHECK IF MEMORY MANAGEMENT IS AVAILABLE 
CLR MMAVA 7 CL 


2$: 


1$: 


M 

+ la ,OFSuR 
#1S a#ERRVEC 
a#SRO 
MMAVA 
#B1T6,aeSwR 
2% 
#40,a8SR3 
#40 ,aaSR5 

1$ 

WRTUP 

#20 ,a#SR5 
aes eee? 


MMAVA 
PC, .MAMF 


EAR MEM MGMT AVAILABLE INDICATOR 
:CHECK IF TO RUN WITH MEM MGMT 
:DO NOT USE MEM MGMT IF Swi2 WAS SET 
;SET TIME OUT ae 
:REFERENCE MEM MGMT 
;SET INDICATOR TO -i * _— 
; TEST MEM WITH 18 BIT MO 
:NO, USE 22 BIT MODE 


: ENABLE UNIBUS MAP 
:DID IT SET? 


;NO, lett 

;NEXT TEST 

;SET 22 BIT MODE 

:D1D IT SET? 

;NO, BRANCH 

I YES==SET INDICATOR 10 <2 
:GO ENABLE PARITY ACTION 


:ROUTINE TO WRITE VALUE OF MEMORY ADDRESS INTO MEMORY ADDRESS 
“FOR EXAMPLE ROUTINE WRITES 20000 INTO LOCATION 20000 


WRTUP: 


#DONED ,A#ERRVEC 
PC, LDMMO 
#MMABTO ,aaMMVEC 
#20000 ,R2 
R2,R 
R3,(R2)¢ 
#2,R3 


;SET TIME OUT TRAP VECTOR 
;LOAD TRACE REGISTER 


:SET MEM MGMT ABORT VECTOR 


sFIRST ADDRESS 

* LOAD CONSTANT 

“WRITE VALUE OF ADDRESS INTO ADDRESS 
*NEXT VALUE 


—_ — — -— ee + ee a ee we eee <0 ENE Se 


ee LT CC OE LN LL LLL LLL LLL LA LLL LL LLL LLL LLL LLL TD 
ee | ee ee ee 


cenaee ae MEM TSI 


CEMJAD.P 


002654 


002656 
002662 
002666 
002672 
002674 


002756 


002760 
002762 
002766 


002770 


000774 
912706 


104400 


060762 
012706 
010701 


005767 


162702 


MACY11 30A(1052) 
O9-FEB-79 11:18 


000500 
176666 
176076 


175200 


020000 
002762 


000002 


002612 
006002 


000500 


175766 
172342 


020000 
005714 
0000C2 


000004 


000250 


09-FEB-79 


] 
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MEMORY ADDRESS TESTS 


BR 
DONEO: 


23: COM 


1$ :WRITE UNTIL DONE 
#STKPIR,SP -SET STACK PTR 
PC. $FORMO "GO 10 FORMAT ROUTINE 
RS. SPRINT "GO TO PRINT ROUTINE 
PC. CRLF 
CHECK THAT VALUE Of MEMORY ADDRESS WAS WRITTEN CORRECTLY 
PC,R1 -LOAD TRACE REGISTER 
#20000 ,R2 :SET R2 
—e >SET TIME OUT TRAP 
#2,R0 -SUBTRACT 2 
PC,LDOMMO 
#2,R0 
(R2)4+,R3 :GET WRITTEN VALUE 
fa : CHECK 
* “ERROR! TO DETERMINE WHICH ADDRESS WAS 
-(R2) 
(R2) 
(R2)¢+,R5 
RO,R3 
1$ 


SWRITTEN. IMPROPERLY EXAMINE R2. NEXT EXAMINE MEM MGMT REGISTER KIPAR! 


:(1F MEM MGMT 1S AVAILABLE). 


BR 
MOV 
MOV 


DONE 1: 


ADD 


R2 AND KIPAR1 TOGETHER AS SHOWN BELOW 


O OOK KAM XX MAK MAX 


R2-2 
KIPARI(772342) Y¥ YVYY YYY YYY YYY YYY 
ADDRESS 


2 222 222 U2l Uz Lit Ul Lil 


1$ 
@STKPTR,SP 
PC,RI 


:SET STACK PIR 
;LOAD TRACE REGISTER 


ROUTINE TO WRITE 1°S COMPLEMENT VALUE OF ADDRESS INTO ADDRESS 
-FOR EXAMPLE ROUTINE WRITES 157777 INTO ADDRESS 20000 


3$: SUB 


MMAVA 
3$ 
+ ghatabeniats 


R2,-(SP) 
#20000, (SP) 
(SP)+,R5 
ayMaptt aa MMVE C 


2% 
#2,R2 


>MEMORY MAGNAGEMENT AVAILABLE? 
;BRANCH IF NOT USED 
:FIND LAST ADDRESS IF MEM MANAGE USED 


:DEVELOP COMPLEMENT OF LAST ADDRESS 
>SAVE BITS IF MEMORY IS NOT A MULTIPLE OF 4K 


;SET ABORT VECTOR 


;R2=LAST ADDRESS 


SEQ 0021 


- 2 oe ee 


ae 
—_—- —_—-  -———- 


CEMJADO 11/70 MEM 1ST 
CEMJAD P11 


003152 


003154 


003220 
003222 


003224 


005262 


010295 


— NWN ww 


000771 
022626 


012737 


001401 
104400 


MACY11 30A(1052) 
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000002 


017776 


175666 
000200 


020000 


000002 
000002 


003222 
002350 


005662 
020006 


010000 


003272 


002300 
020000 


010000 


172542 
000250 
000004 


000004 


000250 


000004 


— eee 


J 
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MEMORY ADDRESS TESTS 


MOV R2,R5 
2%: COM W :COMPLEMENT VALUE IN R35 
1$: ADD #2,R5 
MOV R3,-(R2) -WRITE COMPLIMENT VALUE INTO ADDRESS 
BvS DONE 3 
CMP R2,#17776 
BNE 1$ 
:SET UP TO CHECK COMPLEMENT DATA WRITTEN DOWN 
DONES: NOP 
MOV PC,R1 *LOAD TRACE REGISTER 
uM — sCHECK IF MM IS AVAIL 
MOV #200 ,a#KIPARI : INIT KIPARI 
MOV #@MMABTO,a#MMVEC ;SET 4BORT VECTOR 
1$: MOV #DONES ,A#ERRVEC 
MOV #20000,R2 sFIRST ADDRESS 
MOV R2,R0 
COM RO sFIRST DATA (COM OF ADDRESS) 
ADD #2,R0 
2%: SuB #2,R0 
MOV (R2)+,R3 :GET VALUE 
CMP RO,R3 : CHECK 
BEQ 2% 
HLT 
Bk 2% 
DONES: NOP 
:ROUTINE TO WRITE BANK # INTO ALL ADDRESSES IN A 4K BANK 
MOV #DONEGA Q#ERRVEC;:SET TIME OUT TRAP VECTOR 
MOV PC,R1 
JSR PC, LDMMO 
MOV #MMABIO ,ASMMVEC 
MOV #20000 ,R2 
CLR RO 
1$ INC RO :RO WILL BE DATA WRITTEN 
MOV #4096. .R4 -SET 4K COUNTER 
2$ MOV RO, (R2)* *WRITE BANK @ INTO ALL ADDRESSES 
DEC R4 
BNE 2$ 
BR 1$ 
DONE4A: CMP (SP)+*,(SP)+¢ *ADJUST STACK PTR 
:CKHECK THAT DATA WRITTEN ABOVE CAN BE READ 
MOV #DONESB ,A#ERRVEC 
MOV PC,R1 
JSR PC,LDMMO 
MOV #20000,R2 
CLR RO 
1$ INC RO 
MOV #4096. ,R4 
2$ MOV (R2)¢+,R3 
CMP RO,R 
BEQ #4 
HL! 
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005504 


000765 


012737 
010701 


022704 
001415 


000766 


022626 
005737 
001406 
005767 


005714 000250 
000002 


010000 


017776 


063452 
002164 
005662 


020000 
010000 


010000 


000042 
000620 


000004 


000250 


MEMORY ADDRESS TESTS 


DONE SB: 


;ROUTINE TO WRITE CONSTANT DATA INIO 4K 
;BANK STARTING WITH LAST MEMORY LOCATION 


PC,R1 
a ampere 


2$: 


DONE4C: 


1$: 


4$: 


5$: 
2%: 
3$: 


DONE4D: 


DEC 
BNE 


BR 
CMP 


RG 
2$ 


1$ 
(SP)+,(SP)¢ 


PC. 
PC, 
#20000 ,R2 
#4096. ,R4 


2$ 
(R2)4,R5 
5 


(SP)+,(SP)¢ 
O44? 


BEGINI 
SENDAD*+2 


;CHECK IF DONE 


-* 5 aaa an 


LDMMO 
#MMABTO,a#MMVEC ;SET ABORT VECTOR 
sCHECK IF WRITE ABOVE STARTED ON 


;BRANCH If PROGRAM WAS NOT 
:LOADED VIA ACT11 IN QV OR AA MODES 
;BRANCH IF NOT IN QV MODE 


SEQ 0023 | 
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09-FEB-79 
MEMORY ADDRESS TESTS 
BPL BEGINI 
MOV #1, a#ENDCT :SET ENDCT 10 DO 1 PASS ONLY IN Qv¥ 


.SBITL WORST CASE NOISE TESTS 
:THIS TEST WRITES MEMORY WORST CASE NOISE TEST PATTERNS THROUGHOUT 
:MEMORY AND CHECKS THAT THEY CAN BE WRITTEN AND READ. 
;SET UP TRAP VECTORS 


BEGINI: MOV #STKPTR,SP ;SET STACK PTR 

BIS #14 ,aMCNTRL :DISABLE CACHE 

JSR PC, .MAMF ;GO ENABLE PARITY ACTION 

JSR PC ,CKSWR :GO CHECK SWITCHES 

CLR (PC)+ ;SET INDICATOR TO WRITE NORMAL 3X9 PAT 
PARPAT: .WORD 0 

TST MMAVA ;18 OR 22 BIT MODE? 

BEQ DONE6 ;NO--BRANCH 

JSR PC ,MARGIN :YES--GO SETUP MARGINS 


:WRITE 3 XOR 9 TEST PATTERN STARTING AT ADDRESS 20000 

-NOTE PATTERN 1S NORMAL 3 XOR 9 IF NO PARITY MEMORY IS AVAILABLE, 

:AND 1S A MODIFIED PATTERN IF PARITY MEMORY IS AVAILABLE. 

:THE CONTENTS OF PARPAT IF O/NOT O INDICATE IF NORMAL/MODIFIED PATTERN 
:1S BEING USED IN TESTS BELOW. 


DONE6: MOV #STKPTR,SP ;SET STACK PTR 
MOV PC,R1 [UPDATE TRACE REGISTER 
MOV #DONE7 .AFERRVEC :SET TIME OUT TRAP VECTOR 
MOV #1,-(SP) :PUSH STARTING BANK # ON STACK 
CLR -($§P) ;PUSH # OF 256. WORD BLOCKS TO WRITE 
JSR PC,. 5x9 ;CALL ROUTINE TO WRITE 5X0R9 PATTERN 


:CHECK 3 XOR 9 TEST PATTERN WRITTEN ABOVE 


DONE?: MOV #WERR “ge QaFERRVEC 
MOV 6(SP),R -GET # OF 256. WORD BLOCKS WRITTEN 
NEG RO :FORM TWO'S COMPLEMENT 
MOV RO, (PC)+¢ > SAVE # OF 256 WORD BLOCKS 

wOS.256: .WORD “CONTAINS # OF 256 WORD BLOCKS IN MEM. 
MOV #STKPIR,SP sSET STACK PTR 
MOV PC .R1 >SET SCOPE PTR 
MOV #1,- (SP) : PUSH BANK # ON THE STA 
MOV RO,-(SP) -PUSH # OF 256. WORD BLOCKS TO WRITE 
JSR PC,..3K9 :GO CHECK DATA WRITTEN 

:SETUP TO RUN WOR EE FEO 3 MOR 9 PATTERN IF PARITY MEMORY IS AVAILABLE 
TST MMAV 718 OR R 22 Ad MODE ? 
BEQ 1$ >NO--BRAN 
TST @a#PARAVA > BRANCH IF "PARITY MEMORY IS NO: AVAIL 
BEQ DONE 

1$ TST a#sPARPAT :BRANCH IF PARITY PAT JUST WRITTEN 
BNE DONES 
MOV SP, a#PARPA] SET INDICATOR TO WRITE 3X9 PAR PAT 
BR DONE6 “REPEAT TEST USING MODIFIED 3X9 PATTERN 

:WRITE 8 XOR 15 TEST PATTERN STARTING AT ADDRESS 40000 

DONE8: MOV #STKPTR,SP ET STACK PTR 
MOV #DONES, aYERRVEC :SET TIME OUT TRAP VECTOR 
MOV PC,RI - UPDATE TRACE REGISTER 
MOV #2.-(SP) PUSH STARTING BANK @# ON THE STACK 


i 
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CEMJAD.P11  O9-FEB-79 11:18 WORST CASE NOISE TESTS SEQ 0025 | 
1174 003674 005046 CLR -(SP PUSH # OF BANKS TO WRITE ON THE STACK 
1175 003676 004767 003242 JSR PC, ax13 “GO TO ROUTINE TO WRITE DATA 
1177 “CHECK 8 XOR 13 TEST PATTERN WRITTEN ABOVE 
1178 003702 012706 000500 DONES: MOV WSTKPTR,SP “SET STACK 
1179 003706 010701 MOV PC,RI “UPDATE TRACE TREGISTER 
1180 003710 012737 001126 000004 MOV WERRTRP ,AMERRVEC. 

1181 003716 012746 000002 MOV #2,-(SP) 

1182 003722 005404 NEG RG 

1183 003724 042704 000001 BIC #1,R4 -SET 4K BANK COUNT TO 8K INCREMENT 
1184 003730 001403 BEQ DONE 10 “DO NOT CHECK IF ONLY 12K 

1185 003732 010446 MOV R4,-(SP) 

1186 003734 004767 003212 JSR PC...8x13 -GO CHECK 8 XOR 13 PATTERN WRITTEN ABOVE 
1188 

1189 003740 000005 DONE10: RESET “DISABLE MEM MGMT AND PARITY ACTION 
1191 

1192 -SBTTL RANDOM DATA,ROTATING 1/0 TESTS 

1193 -RANDOM DATA TEST. THIS TEST MOVES THE PROGRAM CODE THROUGHOUT MEMORY 
1194 003742 010701 RANTST: MOV PC.RI -SET TRACE POINTER 

1195 003744 012737 004102 000004 MOV urs -aWERRVEC SET TIME OUT TRAP 

1196 003752 005767 175004 TST “CHECK IF MEM MGMT IS AVAILABLE 
1197 003756 001412 BEQ is “BRANCH IF NOT AVAILABLE 

1198 003760 004767 001554 JSR PC ,.LDMMO :60 SET UP MEM MGMT 

1199 003764 105237 172301 INCB = @#K IPD RO*1 AL‘ OW 4K ADDRESSING IN FIRST 4 
1200 003770 012737 077406 172304 MOV #200256. -400*UP SRY, QMKIPDR2  :SET KIPDR2=RW UP 200 BLOCKS 
1201 003776 012737 000400 172344 MOV #400, aa#K 1PAR2 

1202 004 012702 020000 1$: MOV #20006 ,R2 “SET "TO" ADDRESS POINTER 

1203 004010 005004 CLR RG “SET "FROM' ADDRESS POINTER 

1204 004012 012705 004000 2$: MOV #2048. ,R5 “SET 4K WORD COUNT 

1205 004016 012422 3$: MOV (R4)*, (R2)¢ “MOVE CODE 

1206 004020 012422 MOV (R4)4+, (R2)4 

1207 004022 005305 DEC RS -DECREMENT 4K WORD COUNTER 

1208 004024 001374 BNE 3$ 

1210 004026 012705 005495 MOV #4096.-PLACE+1,R5 =SET 4K WORD COUNTER 

1211 004032 014400 4$: MOV =(R4) RO “GET ‘GOOD’ DATA 

1212 004034 014203 MOV =(R2).R3 “GET "BAD’ DATA 

1213 004036 020003 CMP RO,R3 “COMPARE ‘GOOD’ & "BAD* DATA 

1214 004040 001403 BEQ 5$ 

1215 004042 005722 1ST (R2)+ -STEP ADDRESS FOR ERROR ROUTINE 
1216 004044 104400 HLT “REPORT ERROR 

1217 004046 005742 TST =(R2) “RESTORE ADDRESS POINTER 

1218 004050 005305 5$: DEC RS “DECREMENT 4K WORD COUNTER 

1219 004052 001367 BNE 4$ “LOOP UNTIL 4K WORDS CHECKED 

1221 004054 005767 174702 TST MMAVA -CHECK IF MEM MGMT IS AVAILABLE 
1222 004060 001405 BEQ 6$ * BRANCH IF NOT AVAILABLE 

1223 004062 005237 172342 INC Qa#KIPARI 

1224 004066 005237 172344 INC DHKIPARZ 

1225 004072 000744 BR 1$ 

1226 004074 062702 000100 6$: ADD #64. ,R2 “STEP ADDRESS 

1227 (004100 000744 BR 2$ 

1228 004102 012706 000500 7$: MOV WSTKPTR,SP “RESET STACK P 

1229 006106 012737 001126 000004 MOV WERRTRP aWERRVEC: RESTORE ERROR TRAP VECTOR 
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177777 005504 
00000 i 


177450 
003252 


000001 


177432 
003004 


005246 
000001 
177412 
003214 
000001 
177374 
003042 


000014 


000500 
000752 


174520 
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000042 
175704 
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017776 


177746 
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hd Nd : 1s6t. 
ROTO: 


12:56 PAGE 
RANDOM DATA,ROTATING 1/0 
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N 2 


27 
TESTS 


_THIS TEST ROTATES A SINGLE ‘O° THROUGH MEMORY 
NST ; SET 


hohe gd =177777 


CO 
MOV SP) ;SET BANK 
MOV wOS.256,-(SP) GET # OF 256. WORD BLOCKS IN MEMORY 
JSR PC,WRIPA : G60 WRITE 1°S THROUGHOUT MEMORY 
MOV PC, ;SET SCOPE PTR 
MOV #1,-4SP) : SET STARTING BAN 
MOV wDS. 256, -(SP) : SET # OF 256. YORD "eLocks TO CHECK 
JSR PC,.ROT 10 :60 TO ROTATE O ROUTINE 
be hy 1 TEST THIS TEST ROTATES A SINGLE ‘1° BIT THROUGH ALL OF 
: Y 
ROTI: CLR gee ;CLEAR CONSTANT 
MOV wi, :PUSH STARTING BANK ONTO STACK 
MOV wOS. “386. -(SP) :AND # OF 256. WORD BLOCKS IN MEMORY 
JSR PC, WRTPAT :60 WRITE 0°S THROUGHOUT MEMORY 
MOV : ;SET SCOPE PTR 
MOV #1,-(SP) ;SET STARTING BANK # 
MOV wOS.256,-(SP) : SET # OF 256. WORD BLOCKS TO CHECK 
JSR PC,.ROTI -GO ROTATE A ‘1° BIT THROUGHOUT MEMORY 
END OF CYCLE 
RESET 
BIC #14 ,Q@CNTRL :RESET MACHINE TO KEY-START STATE 
MOV PC,RI :UPDATE TRACE REGISTER 
MOV #STKPTR,SP :SET STACK PTR 
INC aa iCnt : INCREMENT PASS COUNT 
CMP (PC)+,a(PC)¢ :CHECK FOR LAST PASS 
ENDCT: .WORD 6 ;MAKE 5 PASSES 
WORD ICNT :PASS COUNT ADDRESS 
BEQ DONE :BRANCH IF LAST PASS COMPLETED 
JSR R5,SPRINT :GO0 TO PRINT ROUTINE 
ASTERISK 
JMP aaBEGINI 
DONE: 
JSR R5,SPRINT -GO TO PRINT ROUTINE 
ENDMSG 
a — ;WALT FOR BELL TO RING 
L ae 
MOV a#42,R0 :GET DECTAPE MONITOR RETURN ADDRESS 
BEQ FINISH 
JSR PC, SRLDR >RESTORE MONITOR & LOADERS 
SENDAD: = PC, (RO) :GO 19 DECTAPE MONITOR 
N 
NOP 
NOP 
FINISH: JMP STARTI 


.SBTTL PROGRAM SUBROUTINES 
.SBTTL RELOCATION ROUTINES 


;ROUTINE 10 see? PROGRAM CODE 


RELOC: MOV 5)+,R0 GET FROM ADDRESS 
MOV (R5),R2 “GET TO ADDRESS 
MOV R2,R5 
ADD #17776,R3 :MOVES 4K 


SEQ 0026 


ee a ee we ee > ee ee as 
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(Em aD? O9-FEB-79 1 RELOCATION ROUTINES 
1286 006352 012737 004402 0000046 MOV 84%, a#ERRVEL :SE1 TIME OUT TRAP 
1287 0046340 005004 CiR RG “CLEAR RELOCATION SUCCESSFUL INDICATOR 
1288 006342 905723 1$7 (R3)¢ > CHECK i MEMORY 1S AvAI: ABLE 
1289 006344 012022 1$: MOV (RO) +, (R2)¢ s RELOCATE 
1290 346 0202035 CMP R2,R5 -RELOCATION COMPLETE? 
29! 004350 0013575 BNE 1$ 
292 004352 011503 MOV CRS) R35 
295 0046354 020205 2%: CMP R2,R5 
296 004356 001415 BEQ 5$ :BRANCH IF DONE 
295 004360 024042 CMP -(RO),-(R2) -CHECK THAT DATA WAS RELOCATED PROPER: ¥ 
296 004362 001774 BEQ 2% 
297 004364 005703 TST R3 -CHECK IF RELOCATING BACK 10 000000 
298 004366 901403 BEQ 3$ 
299 004370 104400 HLT :ERROR! CANNOT RELOCATE PROGRAM CODE 
300 -10 UPPER MEMORY BANK PROPERLY 
301 004372 000000 HALT 
302 004374 000767 BR 2% :CONTINUE RELOCATING AT YOUR PERIL 
303 004376 000000 3$: HALT -ERROR'! CANNOT RELOCATE CODE BACK 10 
304 :1T0 000000 PROPERLY 
305 004400 000777 beh ; 
306 004402 022626 4$: CMP (SP)*,(SP)¢ >RESTORE STACK PTR 
307 004404 005104 COM R4 
308 604406 000240 5$: NOP 
309 004410 012702 000764 MOV WRELOCE ,R2 :GET ADDRESS OF RELOCATION FACTOR 
310 004414 061502 ADD (R5),R2 :ADD FACTOR 
5 004416 012512 MOV (R5)+,(R2) : RELOCATED RELOCF NOW CONTAINS RELOCATION 
R 
ar 004420 000205 RTS 5 “RETURN, R4=-1 IF NO RELOCATION 
315 
316 -ROUTINE TO RELOCATE PROGRAM CODE FROM ORIGINAL POSITION (0-4K) TO 
317 -TOP OF MEMORY. 
318 004422 012700 020000 RELOCP: MOV #20000,R0 :SET UP TO SCAN FOR TOP OF MEMORY 
319 004426 012737 000006 000004 MOV WERRVEC*#2, asERRVEC 
320 004434 062700 020000 1$: ADD #20000,R0 : INCREMENT SCAN ADDRESS 
321 004440 000261 SEC “SET TIME OUT INDICATOR 
322 004442 005710 TST CRO) :CHECK FOR EXISTANT MEMORY 
323 004444 103573 BCC 1$ -*¢' WiLL BE CLEAR If MEMORY EXISTS 
324 004446 012737 001126 MOV WERRTRP QMERRVEC 
325 004454 162700 020000 SUB #20000,R0 >ADJUST TO LAST EXISTANT GK 
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C 
O9-FEB-79 12:56 PAGE 29 


RELOCATION ROUTINES 


MOV RO,2% 
JSR RS RELOC 


sPASS RELOCATION ADDRESS 10 RELOC ROUTINE 
sRELOCATE PROGRAM 


Wy) 
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CEMJAD PT O9-FEB-79 11 RELOCATION ROUTINES 
1328 004470 000000 000000 :1ROM ADDRESS 000000 
1329 604472 000900 : 2%: WORD 0 10 LAST 4k BANK 
1330 004474 9046567 174<70 JSR R5,SPRINI ‘60 TO PRINT ROUTINE 
1341 604500 910115 RELOCM 


$€0 0029 


ee ee 
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1332 006502 016746 177764 MOV 2$,-(SP) -PASS 10 O2A ROUTINE 

1333 004506 062716 010170 ADD MREL 24K, (SP) :SET UP RESTART ADDRESS 

1334 004512 904767 175276 JSR PC,O2A : TYPE RESTART ADDRESS 

1335 006516 011667 0O000U6 MOV (SP),3$% > SAVE RETURN ADDRESS IN 3$ BELOW 

1336 004522 066706 177744 ADD 2%,SP -RESET STACK PIR 

1337 004526 012716 MOV (PC)+, (SP) ;GET RETURN ADDRESS 

1338 0064530 060000 3$: -wORD 0 -CONTAINS RETURN PC 

1339 004532 066716 177734 ADD 2%, (SP) :ADJUST RETURN PC 

fe 004536 000207 RTS PC 

1542 .SBTTL MA/ME PARITY ERROR SERVICE ROUTINE 

1343 WHEN MA/MF A PARITY ERROR IS DETECTED THIS ROUTINE SCANS MEMORY FOR THE 
1344 -ADDRESS CAUSING THE PARITY ERROR. WHEN THE ADDRESS IS LOCATED THE ROUTINE 
1345 *HALTS WITH THE ADDRESS+2 IN RO. TO CONTINUE AFTER THE ERROR PRESS CONTINUE. 
1346 004540 010067 000172 .PARSRV : MOV RO, SAVRO ;SAVE RO IN SAVRO 

1347 064544 012700 004740 MOV #SAVRO+2,R0 

1348 004550 610120 MOV R1,(RO)* 

1349 004552 010220 MOV R2,(RO)+ 

1350 004554 010320 MOV R3,(RO)¢ 

1351 004556 010420 MOV R4,(RO)?+ 

1352 004560 010520 MOV R5,(RO)¢ 

1353 004562 004567 174202 JSR RS, SPRINT :G0 TO PRINT ROUTINE 

1354 006566 004752 PARERR 

1355 004570 005027 Ci.R (PC)+ :CLEAR PARITY ERROR INDICATORS 

1356 004572 000 PEFLG: .BYTE 0 -NOT 0/0 =PAR ERR/NO PAR ERR 

1357 006575 000 PENFLG: .BYTE 0 :NOT 0/O0=PAR ERR DETECTED/NOT DETECTED ON SCAN 
1358 006574 012737 004642 000114 MOV #2%  a#PARVEC -SET PARITY ERROR TRAP 

1359 004602 012737 004702 000004 MOV #4%,AMERRVEC -SET TIME OUT TRAP VECTOR 

1360 004610 005002 CLR R2 

1361 004612 005767 174144 TST MMAVA :CHECK IF MEM MGMT IS AVAILABLE 

1362 004616 001407 BEO 1$ :BRANCH IF NOT AVAILABLE 

1363 004620 004767 000714 JSR PC ,LDMMO >SET UP MEM MGMT 

1364 0046246 105237 172501 INCB aaK |PDRO+1 -ALLOW FULL SK PAGE ADDRESSING 

1365 004630 012737 005662 000250 MOV #MMABTO,O#MMVEC ;SET MEM MGMT ABORT TRAP VECTOR 

1365 004636 0Ci2200 1$: MOV (R2)+,RO0 :SCAN ALL ADDRESSES 

1367 004640 000776 BR 1% 

1368 004642 110667 177724 2$: MOVB SP,PEFLG :SET PARITY ERROR FOUND INDICATOR 

13569 004646 010003 MOY RO,R3 

1370 004650 104400 HLT :PARITY ERROR! ADDRESS*2 IS IN Re 

1371 004652 000177 003374 JMP @PARCLR -MUST CLEAR BAD PAR LOCATION 

1372 004656 000240 3$: NOP > INSERT HALT INST TO EXAMINE PARITY REGS 
1373 604660 005067 177706 CLR PEFLG *CLEAR PARITY ERROR INDICATORS 

1374 0046664 012706 000500 MOV #STKPIR,SP *RESET STACK PIR 

1375 004670 000005 RESET 

1376 004672 004767 900512 JSR PC, .MAMF -GO ENABLE PARITY ERROR DETECT.ON 

ee 004676 000177 005342 JMP aCLRPAR -CLR PAR ERROR LOCATION 

1379 *SERVICE ROUTINE JF PARITY ERROR NOT DETECTED ON SCAN 

1380 004702 105767 177664 4$: TSTB PEFLG -BRANCH IF PARITY ERROR WAS 

1381 004706 001363 BNE 3$ -DETECTED ON SCAN 

1382 004710 016602 000604 MOV 4(SP),R2 -GET PC AT TIME OF ERROR 

1383 004714 162702 000002 SUB #2,R2 ;BACK IT UP | 
1384 004720 110667 177647 MOvVB SP,PENFLG -SET IND = NO PAR ERROR DETECTED ON SCAN 
1385 004724 004567 174040 JSR R5,$PRINT -G0 TO PRINT ROUTINE 

1386 004730 004773 NOF IND . 
1887 004732 104400 HiT “ERROR! PARITY ERROR NOT DETECTED ON SCAN 


F 
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CEMJAD P11 O9-FEB-79 11:18 MA/MF PARITY ERROR SERVICE ROUTINE 
1388 006734 000750 aia 3$ 
1389 :THE BELOW 6 WORDS CONTAINS THE SAVED CONTENTS OF RO-RS WHEN THI 
1390 -PARITY ERROR OCCURRED 
1391 004736 000000 SAVRO: .WORD OG 
1392 004740 000000 SAVR1: .WORD OU 
139% 004742 000000 SAVR2: .WORD C 
1394 004744 000069 SAVR3: .WORD 0 
1395 004746 000000 SAVR4: .WORD 0 
it +4 004750 000000 SAVR5: .WORD 0 


1398 004752 005015 040520 044522 PARERR: .ASCIZ <15><12>'PARITY ERROR'<15><12> 


1401 004775 116 052117 043040 NOFIND: .ASCIZ ‘NOT FOUND ON SCAN'<15><12> 
1402 005000 052517 042116 047440 

1403 005006 020116 041523 047101 

1406 005014 005015 000 


1405 005020 EVEN 

1406 

1407 

1408 177740 MEMLO=177740 

1409 1777462 MEMH1=177742 

1410 177744 MEMERR=177744 

1411 

1412 

1413 005020 005767 177546 .cdPAR: TST PEFLG :BEEN HERE BEFORE 

1414 005026 0014035 BEQ 1$ >BRANCH IF NO 

1415 005026 000060 HALT -YES -- DOUBLE PARITY ERROR 
1416 005030 000177 175426 JMP aPERSTRI 

1417 005034 010667 177532 1$: MOV SP,PEFLG ;SET PARITY a FLAG 
1418 005060 005737 177570 TST aa SwR >HALT ON ERROR? 

1419 005044 100001 BPL 100% ; BRANCH 1F NO 

1420 005046 000000 HALT YES 

1421 005050 013746 177744 100$: MOV @eMEMERR,-(SP) > SAVE MEMORY ERROR REG 
1422 005054 013701 177740 MOV a*eMEMLO,R1 > GET ADDRESS OF WHERE THE PARITY 
1423 005060 013702 177742 MOV OeMEMHI RZ “ERROR OCCURRED 

1424 005064 011637 177744 MOV (SP) ,@#MEMERR :CLEAR THE ERROR REG 
1425 005070 032737 020000 177570 BIT #B1T15,a¢SweR > INHIBIT ERROR TYPEQUT 
1426 005076 00107) BNE 101% >BRANCH IF YES 

1427 :PRINT ‘PARITY ERROR” 

1428 005100 004567 173664 JSR RS, SPRINT 

1429 005104 004752 PARERR 

1440 >PRINT ‘"'PC=KXKKKX" 

1431 005106 004567 173656 JSR RS,SPRINT 

1432 005112 001475 ERRPC 

1433 005114 016646 000002 MOV 2(SP),-(SP) GET PC AT TIME OF PARITY ERROR 
1434 005120 066716 175640 ADD RELOCF , (SP) 

1435 005124 0046767 174664 JSR PC ,O2A 

1436 005130 004567 1736354 JSR R5,SPRINI 

1437 005134 002361 SPACE 1 

1438 *CHANGE 22-BIT ADDRESS TO OCTAL-ACSI! 

1489 005136 012700 002551 MOV #DIGITS,RC 

1440 005142 012704 000010 MOV #8. ,R4 

1441 005146 012705 000005 23: MOV #3 R5 

1642 005152 005003 3$: CLR Rs 


lees 005154 006301 4$: ASL R | 


ane om = - 
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005170 
905172 


005232 
0052536 


005 302 


005504 


005402 


0054610 


077412 
004567 
002527 
004767 


004567 


002561 


016700 
116000 


000177 
005304 


005304 


047516 


047111 
005410 


OO0114 
032737 


00251¢ 


173572 
172674 
175560 


174574 
173544 


17352C 
005532 
005266 
000004 
173516 


173510 
175174 


046522 


051101 
051124 


042524 
041117 
020127 
047105 
044107 
042522 


040515 
006412 


000040 
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046101 


054514 
041117 


951440 


052116 
043522 
000 


177570 


O9-FEB-79 12: 
MA/MF PARITY ERROR SERVICE ROUTINE 


G 
56 PAGE 35 


ROLB R2 
ROL R53 
SOB R5,4% 
MOVB DIG TABCRS). (RO)* 
$cB R4,2% 
>PRINT ‘MEMORY ADDRESS 1S AAAAAAAA’ 
JSR R5,SPRINT 
ADRESS 
JSR PC,CRLF 
:PRINT “PARITY ERROR REG=KXXO KKK" 
JSR RS,SPRINT 
PARREG 
MOV (SP),R5 
JSR PC,O2A 
JSR PC, SPRINT 
SPACE 1 
:PRINT THE MARGIN gg 
MOV ICNT,R 
MOVB MRGNTB(RO), RO 
ADD #MARTBL ,RO 
MCV (RO) ,5$% 
JSR R5S,SPRINT 
5$: MARTBL 
JSR R5,SPRINT 
MARMSG 
101$: JMP @PERSTRT 
>MARGIN MESSAGE TABLE 
MARTBL: a 
ESTRB 
LSTRB 
LCRNT 
HCRNI 
NORMAL 
:MARGIN MESSAGES 
NORMAL: .ASCIZ ‘NORMAL 
ESTRB: .ASCIZ ‘EARLY STROSE' 
LSTRB: ASCIZ “LATE STROBE* 
LCRNT: .ASCIZ ‘LOW CURRENT’ 
HCRNT: .ASCIZ ‘HIGH CURRENT’ 
MARMSG: .ASCIZ ° MARGIN'<12><15> 
-EVEN 
sROUTINE TO ENABLE PARITY ERROR ACTION ON 11/70 PARITY MEMORIES 
PARVEC=114 -PARITY ERROR INTERRUPT VECTOR ADDRESS 
MAME: BIT #40,d8SWe >C HECK Jr PARITY ERROR DETECTION LS [5 


cence ee eR TS LL LT LT ee TT 


CEM ADO 


fEMJAD LPT) 


ee ee ee ee ee ee 
PFPA Vv? YW" 
TO PRD PD wet et ee ee ot oe te 
Mm —-OOOnO VP wn 


PFA PPP FWY WY" 
oS. So. OS ee al oe 
wr —O O@ne? VF wn — 


ee wee et et ot et ot 
Pun 
ert 
SO WS 


005416 
605420 


005426 
005434 


005456 
005444 


005450 
005456 


005512 


005537 


005540 


005604 
005612 
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001007 
942737 


012767 
000405 


052757 
005067 
012757 
012757 
005767 
001406 
012757 
012737 


000207 
000000 


177756 
016700 


ptt apatites 


000002 
090001 
000002 
000040 


004540 


000540 
173272 


005020 
000340 


173234 
005532 


173214 
000100 
000020 
000040 
077006 


077406 
172504 


177766 
000054 


177746 


000114 
000116 


000114 
000116 


177750 


177570 
172516 
172516 


172300 
172502 


O9-FEB-79 
A/ME PARITY ERROR SERVICE ROUTINE 


12:56 PAGE 54 


BNE 1$ 
> ENABLE oy ly ERROR Ae 


MOV 


#2,aMCNTRL 
#1 ,PARAVA 
e$ 


BR 
;DISABLE PARITY ERROR DETECTION 
i$: BIS 


; CLEAR 
:SET-UP PARITY ERROR SERVICE TRAP FOR 18-B11 OR 22-BI1T 
ADDRESSING MODES 


3$: 
PARAVA: 


CLR 


MOV 


RTS 
. WORD 


~ SBITL 


#2,a8 “gama 
PARAV 
+ dk aarenee tts 


aS 
#.22PAPR ,a#PARVEC 
#340, QMPARVEC*2 ; 
“4 


MARGIN ROUTINE 


;ROUTINE TO SET THE MARGINS 
MAINTRG=177750 


MARGIN: 


1$: 


MR GNTB: 


MOV 
CLR 


.SBTTL MEM MGMT ROUTINES 


LCNT,RO 


#.PARSRV,a#PARVEC 


oe + - — 


;BE ENABLED. BRANCH IF NOT TO BE ENABLED 


SOTHERWISE, INSURE THAT PARITY ERROR 
:DETECTION 15 ENABLED 
;SET PARITY ERROR DETECTION INDICATOR 


Ait et PARITY ERROR DETECTION 
PARITY ERROR DETECTION INDICATOR 


; SET-UP al ADDRESS PARITY 
; ERROR TRAP VECTOR 
ee ae oe LEVEL 7 ON TRAP 
18 OR 22 BIT MODE? 
‘ BRANCH IF NOT, OTHERWISE 
; SET-UP 22-BIT ADDRESS PARITY 
;ERROR TRAP VECTOR 
Brent Nl LEVEL 7 ON TRAP 
;PARITY ERROR DETECTION INDICATOR 
:0 = PARITY ERROR DETECTION IS DISABLED 


:1 = PARITY ERROR DETECTION IS ENABLED 


;PASS COUNT 
:FAST COUNTER 


R 
MRGNIB(RO), aeMAINTRG ;LOAD MAINTENANCE REG. 


R2,1% 
PC 


: NORMAL 
sEARLY STROBE 
;LATE STROBE 
>LOW CURRENT 
>HIGH CURRENT 
s NORMAL 


sROUTINE TO INITIALIZE MEMORY MANAGEMENT REGISTERS 


LDMMO : 


MMAVA 

1$ 
#B1TO,a¢SWR 
2% 

| gece 
#40 ,aaS 


SR5 
#1772256.-400+UP*RW, ak IPDRO 
#200*256.-400+UP*RW, a#K I PURI 


@aK IPDR2 


318 BIT UNIBUS MAPPiNG? 
YES--BRANCH 
$22 BIT MODE 


ENABLE UNIBUS MAP 
SET KIPDRO-Rw UP 177 BS 
- SET KIPDRI=Rw UP 200 BLOLKS 


SEQ 0055 


— wee 


1569 


PPAF FFs Iw 
tt pet we eh eee 
VW —-O OOne VFwnN—O 


ed ee ee | LU lk ee | 
oon 


005616 


005756 


005760 


os 11/70 MEM TSI 
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000002 


005702 


000207 
004767 


o— 


000901 


040000 
000200 


177576 
000001 


177572 
000002 


172772 


177530 


172544 


000001 


1 350A(1052) 


172516 


172342 
172556 
177572 


172542 


177572 


172542 


177572 


000002 


] 
12:56 PAGE 35 


09-FEB-79 
MEM MGMT ROUTINES 
CLR aex |PAR2 
re dng etes -7400*UP*RW, aaK IPDR7 >SET KIPDR7=Rw UP 200 BLOCKS 
L aK 
MOV #200, ,a#K1PAR1 
MOV #177600 ,aaK |PAR7 
MOV #1,a4SRO0 sENABLE MEM MGMT 
NOP 
1$: RTS PC 
-MEMORY MANAGEMENT ABORT ROUTINE FOR WRITE UP 
MMABTO: MOV #20000 ,R2 sRESET R2 
ADD #200, aeK PARI *ADVANCE TO NEXT 4K 
MOV aesR2, (SP) “RETURN TO INSTRUCTION THAT 
CLR a#Sro :DISABLE MEM MGMT 
MOV #1,a#SRO0 :ENABLE MEM MGMT 
RT] >CAUSED THE ABORT 


;MEM MGMT ABORT SERVICE FOR WRITE este’ 
MMABT1: MOV #40000 ,R2 ;RESET R2 
SUB 1300, aeK PAR! 


BEQ 2$ 

MOV aawSR2, (SP) 

“94 #1, a#SRO sENABLE MEM MGMT 
2%: 

CLR aa#sro :DISABLE MEM MGMT 

44 av ,2¢SP) 


SET UP MEMORY MANAGEMENT FOR PATTERN TESTS 
TST R2 ;CHECK IF TESTING BANK # 0 


BEQ $ “EXIT JF BANK # 0 
TST MMAVA 
BNE 1$ >BRANCH IF MEM MGMT AVAILABLE 
ROR R2 :ADJUST ADDRESS 
ROR R2 
ROR R2 
ROR R2 
RTS PC >RETURN 
1$: JSR PC ,LDMMO -GO MAKE INITIAL SET UP 
SWAB R2 
ROR R2 
MOV R2,@#K |PAR2 
ADD #200, R2 
MOV R2, aeKIPAR3 
MOV #200*256.-400+UP+RW,aaK IPDR2 >SET KIPDR2=Rw UP 200 BLOCKS 
MOV #200*256.-400+UP+RW,aaK IPDRS -SET KIPDR3=Rw UP 290 BLOCKS 
CLR aeKIPDR4S 
MOV #40000 ,R2 
MOV #MMABT2, aeMMvec 
MOV #1,a8 #SRO sENABLE MEM MGMT 
2$: RTS PC 
ROUTINE TO SERVICE 8 XOR 15 ABORTS 
MMABT2: NOP 


SEG 00434 


—<ee— oe -08 + ee eer = 


—— ———e eS 
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006204 
006206 
006210 
006212 
006214 


012702 
37 


000002 


016602 


001402 


004767 
005366 
001542 
012616 
012616 
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040000 
000400 
000400 
177576 
000001 


000004 
177620 


175350 


000401 
000020 


175262 


000014 
000002 


172544 
172546 


177572 


oe saat ke 
M MGMT ROUTINES 


~ SBTTL 


J 
12:56 PAGE 56 


#40000 .R2 
#400 ,a#KLPAR2 
#400 ,a#KIPAR5 
a#SR2, (SP) 

#1 ,a#SRO 


3 XOR 9 ROUTINES 


SEQ 0055 


;SET RETURN TO INSTRUCTION THAT ABORTED 
;ENABLE MEM MGMT 


; ROUTINE - WRITE ae WORST CASE NOISE TEST PATTERN 


: CALL: 


o 5K9: 


23: 


BANK #,-(SP) 
BLECNT. -(SP) 
3x9 


4(SP) ,R2 
vw 


] 

RO,R3 

R3 
PARPAT 
1$ 
#401,R0 
#16. ,R4 
RO, (R2)¢ 
RO,(R2)* 
RO, (R2)+ 
RO, (R2)* 
RO, (R2)¢ 
RO,(R2)* 
RO, (R2)* 
RO, <(R2)+ 


R3,(R2)+ 


R35,(R2)¢ 
R3,(R2)+ 


PC,.xXOR39 
(SP) 


1$ 
(SP)+, (SP) 
(SP)¢, (SP) 


>PUSH STARTING BANK # ON STACK 
;PUSH 256. WORD BLOCK COUNT ON STACK 
;CALL ROUTINE 


;GET STARTING BANK # 


>RO (0) AND R3 (-1) IS THE DATA WRITTEN 
* BRANCH IF PARITY MEMORY PATTERN IS 
:NOT TO BE WRITTEN 


;WRITE PARITY 3X9 PATTERN 
;EACH LOOP WRITES 256. WORDS 


:BRANCH IF PARITY MEMORY PATTERN [5S 
:NOT TO BE WRITTEN 


:GO GET CONSTANTS 
:DECREMENT 256. WORD BLOCK COUNT 


sADJUST STACK 


an 


CEMJADO Fai MEM TST 


CEMJAD .P 


ee ee ee et et et et ot 
SN NS NS SONS NS SN NOS 
RORY <a ee © 
WN —OODNO VFwr—Oeo 


~™ 
mn 


006260 


006550 
006352 


006356 


006410 
006414 


006416 


0064 32 


0064 36 
006440 
006442 


000207 


032702 


000207 


000240 
004767 


016604 


005100 
012705 


005767 
001402 


004767 
012203 
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000020 
002000 


002000 
172442 


172432 


17777? 
000401 


000401 
177777 


001104 


000002 
000004 
177366 


172554 


000040 
175106 


177640 


172546 


ig py 
R 9 ROUTINES 
RTS PC 
ROUT ime TO SET 
>PARIT 
* OR 39: "BIT #20,R2 
BEQ . 5180 
.51S81: BIT #2000 ,R2 
BEQ . 5NOT9 
BR 51S 99 
.35180: BIT #3000, R2 
BEQ 5189 
. 3NOT9: TST {COUNT 
BPL LDOCOMP 
BM] LDNORM 
.3189: S17 1COUNT 
BPL LONORM 
LDCOMP: MOV #-1,R0 
MOV #4£01,R3 
RTS PC 
LDNORM: MOV #401,R0 
MCV #-1,R3 
RTS PC 
>ROUTINE TO CHECK 3 aoe 9 wORST 
sCALL: MOV BANK# ,-(SP) 
: MOV BLKCNT, -(SP) 
; JSR PC,.. 3X9 
..35k9: NOP 
JSR PC, CKSWR 
:CHECK WORST CASE PATTERN 
1$: MOV 2(SP),RS 
MOV 4(SP),R2 
JSR PC, STMM2 
CLR R 
TST ICOUNT 
BPL +4 
' COM 0 
2$: MOV #32.,R5 
3$: TST PARPAT 
BEQ 30% 
JSR PC, .XOR39 
30$: 
MOV (R2)¢,R3 
CMP RO,R3 
BEQ +10 
CLR - (SP) 
JSR PC ,ERROR 
MOV (R2)4+,R5 
CMP 0,R3 
BEO +10 


K 
12:56 PAGE 37 


CONSTANTS FOR WRITING/CHECKING 5 XOR PATTERN wiih 


;CHECK BIT 3 
:BRANCH IF BIT 3 = 6 
;CHECK BIT 9 


:BRANCH IF BIT 9 =0 


:CHECK BIT 9 
;BRANCH IF 0 
:CHECK IF NORMAL CR COMPLEMENT DATA 


;GO LOAD COMPLEMENT CONSTANTS 

;GO LOAD NORMAL CONSTANTS 

;CHECK IF NORMAL OR COMPLEMENT DATA 
;GO LOAD NORMAL CONSTANTS 


:SET COMPLEMENT CONSTANTS 


; RETURN 
:LOAD NORMAL CONSTANTS 


CASE NOISE PATTERN 


;PUSH STARTING BANK # ONTO STACK 
;AND 256. WORD BLOACK COUNT 


:CALL ROUTINE 


;GO CHECK SWITCH REGISTER 


;GET 256. BLOCK WORD COUNT 
;GET FIRST BANK # 


:GO SET UP MEM MGMT 

;SET CHECK WORD 

;1f ICOUNT IS NEG AM CHECKING COMP- 
:LEMENTED PATTERN 


>$0 COMPLEMENT CHECK WORD 
;SET 256. WORD COUNTER 


:BRANCH IF PARITY MEMORY PATTERN IS 
;NOT TO BE CHECKED 


:GO GET CONSTANT 


;GET TEST DATA 
; COMPARE WITH CHECK WORD 


;PUSH FAKE STATUS ON THE STACK 
sERROR! MEM DATA (R3) NOT = TEST DATA 
;(RO), ADDRESS=(R2)=2 


;GET TEST DATA 
;COMPARE WITH CHECK WORD 


No 11/70 MEM TST 


MACY11 30A(1052) 
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09-FEB-79 R 9 ROUTINES 

1 006444 005046 CLR -(SP) ;PUSH FAKE STATUS ON THE STACK 
17 006446 004767 172532 JSR PC ,ERROR sERROR! MEM DATA (R35) NOT = TES’ DATA 
if ; (RO), ADDRESS=(R2)-2 
17 006452 012205 MOV (R2)+,R5 ;GET TEST DATA 
17 006454 020005 CMP RO,R3 ; COMPARE WITH CHECK WORD 
1730 006456 001405 BEQ .*10 
1731 006460 005046 CLR =(SP) ;PUSH FAKE STATUS ON THE STACK 
1732 006462 004767 172516 JSR PC ERROR “ERROR! MEM DATA (R3) NOT = TEST DATA 
ft F, ; (RO), ADDRESS=(R2)-2 
1735 0064 012205 MOV (R2)+,R3 ;GET TEST DAT 
1736 006470 020005 CMP RO,R5 ; COMPARE with CHECK WORD 
1737 006472 001403 BEQ .*10 
1738 006474 005046 CLR -(SP) ;PUSH FAKE STATUS ON THE STACK 
1739 006476 004767 172502 JSR PC,ERROR sERROR! MEM DATA (R3) NOT = TEST DATA 
ot ; (RO), ADDRESS=(R2)-2 
1742 006502 012205 MOV (R2)+,R5 ;GET TEST DATA 
1743 006504 020003 CMP RO,R5 : COMPARE WITH CHECK WORD 
1744 0065 001403 BEQ .*10 
1745 006510 005046 CLR -(SP) ;PUSH FAKE STATUS ON THE STACK 
1746 006512 004767 172466 JSR PC ERROR sERROR! MEM DATA (R35) NOT = TEST DATA 
94 ;(RO), ADDRESS=(R2)-2 
1749 006516 012205 MOV (R2)+,k5 ;GET TEST DATA 
1750 006520 020005 CMP RO,R5 ;COMPARE WITH CHECK WORD 
1751 006522 001405 BEQ -*10 
1752 006524 005046 CLR =($P) :PUSH FAKE STATUS ON THE STACK 
1753 006526 004767 172452 JSR PC ERROR SERROR! MEM DATA (R35) NOT = TEST DATA 
ite (RO), ADDRESS=(R2)-2 
1756 006532 012203 MOV (R2)4,R5 ;GET TEST DATA 
1757 006534 020005 CMP RO,R5 ;COMPARE WITH CHECK WORD 
1758 006536 001405 BEO .*10 
1759 006540 005046 CLR =(SP) 7PUSH FAKE STATUS ON THE STACK 
1760 006542 004767 172436 JSR PC ERROR sERROR! MEM DATA (R35) NOT = TEST DATA 
H$4-¢ ; (RO), ADDRESS=(R2)-2 

6 
1763 096546 012205 MOV (R2)+,R5 ;GET TEST DATA 
1764 006550 020003 CMP RO,R5 ;COMPARE WITH CHECK WORD 
1765 006552 001405 BEQ -*10 
1766 006554 005046 CLR -(SP) ;PUSH FAKE STATUS ON THE STACK 
1767 006556 004767 172422 JSR PC ERROR -ERROS! MEM DATA (R3) NOT = TEST DATA 
1768 ; (RO), ADDRESS=(R2)-2 
1769 
1770 
1771 006562 005100 COM RO ;COMPLEMENT CHECK WORD 
1772 006564 005305 DEC R5 :DECREMENT 256. WORD COUNTER 
1773 006566 001310 BNE 3$ 
1774 006570 005100 COM RO ;COMPLEMENT CHECK WORD 
1775 006572 005304 DEC R4 :DECREMENT BLOCK COUNTER 
pas 006574 001503 BNE 2$ 
1778 006576 032737 040000 177570 Blt #40000 ,a#SWR ;LOOP ON TEST? 
1779 006604 001264 BNE 1$ :BRANCH IF LOOP ON TEST DESIRED 


—<—- ees > ~—— 
-_—— _ 


er we wee ere ee 
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1806 


Sse 


me ee eet eet eet 
Gs oo CS CO Oo CO OV OO CO OO 
eee ee ee et eet oe 
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007032 


001335 
016602 
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000002 
000004 
177134 


172122 


000040 
000010 
174650 


177402 


172310 


172270 
177776 


172024 
000004 


2 
049000 
171760 


177354 
000020 


000020 


172152 408: 


177570 


;GE1 # OF 256. = BLOCKS 10 CHECK 
[GET STARTING BANK # 
;GO SET UP MEM MGMT IF REQUISD 


;CHECK IF COMPLEMENT PATERN 


a year CHECK WORD 
T 256. WORD _*" 
‘SET 8 WORD COUNTER 
“BRANCH IF PARITY MEMORY PATTERN IS 
;NOT TO BE CHECKED 


:GET DATA 
:CHECK DATA 


: COMPLEMENT CHECK WORD 
>COMPLEMENT TEST DATA 
:GET DATA 

s CHECK 


;PUSH FAKE STATUS ON THE STACK 
; COMPLEMENT CHECK WORD 
sRESTORE DATA 

;DECREMENT 4 WORD COUNTER 


>COMPLEMENT CHECK WORD 
;DECREMENT 256. WORD COUNTER 


:COMPLEMENT CHECK WORD 
;DECREMENT BLOCK COUNTER 


;GET BANK # 


;GET ate COUNT 
;LOOP GN TEST 
;BRANCH IF LOOP ON TEST 


;COMPLEMENT PATTERN 


;GET 1ST DATA WORD 
;GET 9TH DATA WORD 
;SWAP WORDS 1-8 


WITH 9-16 


a grt te 12:56 PAGE 39" 
R 9 ROUTINES 
MOV 2(SP),COUNT 
MOV 4(SP),R2 
JSR PC,STMM2 
; CHECK rr vie’ ia COMPLEMENT PATTERN 
TST 1 COUNT 
BPL .*4 
COM 0 
4$: MOV #32.,R4 
S$: MOV #8., 
6$: TST PARPAT 
BEQ 0$ 
JSR PC,.xOR39 
60$: MOV (R2)+,R5 
CMP RO,R35 
BEQ +10 
CLR -(SP) 
JSR PC ERROR 
COM RO 
COM -(R2) 
MOV (R234,R3 
CMP RO,R5 
BEQ +10 
CLR -(SP) 
JSR PC ,ERROR 
COM RO 
COM -2(R2) 
DEC R5 
BNE 6% 
COM RO 
DEC R4 
BNE 5$ 
COM RO 
DEC COUNT 
BNE 4% 
MOV 4(SP),R2 
JSR PC,STMM2 
MOV 2(SP),R3 
BIT #40000 ,a#SuR 
BNE 40% 
ASL 1 COUNT 
8vs 7$ 
JMP $ 
7$: MOV #16.,R5 
108: MOV (R2),RO 
MOV 20(R2), RG 
MOVB R4, (R2)¢ 
MOVB RG. (R2)+ 
MOVB R4,(R2)¢ 
MOVB RG,(R2)¢ 
MOVB RG, (R2)+ 
MOVB RG,(R2)¢+ 
MOVB R4,(R2)¢ 
MOVB R4,(R2)¢ 


s€Q 0038 | 


ee ee ee 
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LAA 
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007142 


007144 
007146 
007150 


007152 
007154 
007156 


MEM TSI 


Ooooooooeoee fr Lr fLf rf fS 


Nm 
Nm 


SSSSSSSsSsSsssSssessPePEezP FEF 
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MMM MIPS 

MIMNIMIM PS 
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On a at nt at tt mk tt at at we a as a ss ss -s 
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001327 
005767 


060207 


012616 
012616 
000207 


171624 
177220 
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09-FEB-79 
3 KOR 9 ROUTIN 


11$: 


sROUTINE TO W 
. SBTT 
;CALL: 


8X15: 


sROUTINE TO 
sCALL: 


8X13: 
M 


N 
2:56 PAGE 40 
ES 


R4,(R2)* 
R4,(R2)* 


;AND VICE VERSA 


I COUNT 

11% 

1$ 

(SP)+, (SP) 


(SP)+, (SP) 
PC 


RITE 8 XOR 13 WORST CASE NOISE TEST PATTERN 


8 XOR 135 ROUTINES 
BANK #,-(SP) 
#4KBANKS,~-(SP) 
PC, .8x15 


(SP)+*, (SP) 
(SP)+, (SP) 
PC 


;ADJUST STACK 


CHECK 8 XOR 13 WORST CASE NOISE TEST PATTERN 


;PUSH FIRST BANK # ON THE STACK 


K#,-(SP) 
ry >PUSH # OF 4K BANKS TO CHECK ON THE STACK 


#BANKS,-(SP) 


PC,..8X15 >CALL ROUTINE 
(SP)+, (SP) 

(SP)+, (SP) 

PC : RETURN 


SEQ Q 


~ 
” : 


*, ht 


007160 
007164 
007170 
007174 
007200 


007204 


007250 
007252 


007254 
007260 
007264 
007270 
007274 


007276 


007322 
007324 


007340 


, mem t57 
9-6 BH 79 


904/767 


004767 
016604 
016602 
004767 
005000 


012705 
000261 
004767 
016203 
103002 
020005 
001401 
104400 


005505 
001565 
005 304 
001361 
012616 
012616 
000207 


Macet! $0a¢'05S2) 


11:18 


000276 
00000? 
000004 
176560 
177777 
000400 


000124 
177776 


171746 


000202 
000002 
000004 
176464 


000400 


000032 
177776 


O9-F EB-79 
BOTATING 1°S @ O°S ROUTINES 


-SBTTL ROTATING 1" 


8 
12:56 PAGE G1 


SROUTINE TO CHECK ROTATING 


SCALL: 


. 
o 


ROTO: 


1¢: 
2%: 


3$: 
4%: 


MOV 


MOV 
RTS 


;ROUTINE TO 


> CALL: 


ROTI: 


1$: 
2%: 


3$: 


MOV 


BANKS ,-(SP>) 
BiKCNT,-(SP) 
PC, ROTO 


PC, CKSWR 
2(SP) ,R4 
4(SP),R2 
PC, STMM2 
@-1,R0 


#256. ,R5 


PC ROTATE 
-2(R2) ,R5 
$$ 

RO,R5 

4% 


-(SP) 
PC,FRROR 


(SP)¢, SP) 
(SP)*, (SP) 
PC 


CHECK ROTATING ' 
BANK#,-(SP) 
BLKCNT,~(SP) 
PC,.ROTI 


PC, CKSWR 
C(SP) RS 
4(SP) ,R2 
PC, STMM2 
RO 


#256.,R5 


PC ROTATE 
~2(R2),R5 


(SP)¢,(SP) 
(SP)¢, (SP) 
PC 


“ 


& O'S ROUTINES 
* BIT THROUGH FILD OF 1°S 
>SET STARTING BANK @ 
: SET 256. WORD BLOCK COUNT 


> CALL ROULTNE 


:G0 CHECK SWITCHES 
;GET 256. WORD BLOCK COUNT 
:GET FIRST BANK # 


0 


‘GO SET UP MEM MGMT (IF AVAIL) ~ f 


;SET CHECK WORD 


:SET 256. WORD COUNT 
;CLEAR CARRY BIT IN PSW 


:GET RESULT 
-BRANCH IF ‘C° BIT WAS SET 
> CHECK RESULT 


sERROR! COULD NOT ROTATE ‘O° BIT 
; THROUGH ADDRESS IN R2 
:DECREMENT 256. WORD COUNT 

;LOOP UNTIL DONE 

:DECREMENT 256. WORD BLOCK COUNT 
;LOOP UNTIL DONE 

:POP CONSTANTS OFF THE STACK 


;RETURN TO CALLER 


1' BIT THROUGH A FIELD OF 0°S 
;SET STARTING BANK # 
;SET #@ OF 256. WORD BLOCKS TO CHECK 
:CALL ROUTINE 


:GO CHECK SWITCHES 

-GET # OF 256. WORD BLOCKS TO CHECK 
:GET STARTING BANK @ 

:GO SET UP MEM MGMT (IF AVAIL?) 

>SET CHECK WORD 


7SET 256. WORD COUNTER 
;SET *C* BIT IN PSW 

;GO ROTATE ‘1° BIT 

:GET RESULT 

;BRANCH IF "C* IS CLEAR 
; CHECK RESULT 


ERROR! COULD NOT ROTATE “1° BIT 
; THROUGH ADDRESS IN R2 
“DECREMENT 256. WORD COUNT 
:DECREMENT 256. WORD BLOCK COUNT 
;ADJUST RETURN ADDRESS 


;RETURN TO CALLER 


’ @ 





CEM ADO 
CEMJAD.P1I 


2005 


11/70 SEM TST 


007342 
007344 


007406 


007410 


007460 


007462 
007470 


007514 


SoooooCooooooooe 
Ooooooooo°o°o°o 
SSOSSSSSSSSSSOSS 

— es et ot 1 wt 
ee I ee 8 ee eet et 
PSDSRSVRPIMPIPS MPS MPV MI PIPPI PS PO MORI PE PS 


— — 
ooo 
Coe 
— 
~Nm 


000207 


016604 


056767 


macvil $0a8(1052) 
O9-FER-79 11:18 RC 


000002 
000004 
176334 


000100 


017777 
000400 


000464 
001000 


171236 


177570 
171236 


O9-F2B-79 12:56 PAGE 42 
TATING 1°S @ O°S ROUTINES 
:ROUTINE TO ROTATE ‘C* BIT THROUGH A MEMORY LOCATION. 
ROTATE: ROLB (R2) :(R2)=177776 OR 000001 
ROLB (RD -(R2)=177775 OR 000002 
ROLB (R2) -(€R2)=177773 OR 000004 
ROLS (R2) -(R2)=177767 OR 000610 
ROLB (R2) -(R2)=177757 OR 000020 
ROLB (R2) :(R2)=177737 OR 000040 
ROLB (R2) :(R2)=177677 OR 000100 
ROLB (R2) :(R2)=177777 OR 000000 
ROLB (R2)+ -(R2)=177577 OR 000200 
ROLB (R2) - (R2)=177377 OR 000400 
ROLB (R2) :(R2)=176777 OR 001000 
ROLB (R2) -(R2)=175777 OR 002000 
ROLB (R2) :(R2)=1/3777 OR 004000 
ROLB (R2) : (R2)=167777 OR 010000 
ROLB (R2) -(R2)=157777 OR 020000 
ROLB (R2) : (R2)=137777 OR 040000 
ROLB (R2) -(R2)=077777 OR 100000 
ROLB (R2)+ :(R2)=177777 OR 000000 
RTS PC s RETURN 
sROUTINE TO WRITE ONE WORD PATTERN INTO MEMORY 
CALL: MOV BANK#,-(SP) :PUSH STARTING BANK # ONTO STACK 
: MOV BLKCNT,=-(SP) :AND 128. WORD BLOCK COUNT 
: JSR PC ,WRIPAT >CALL ROUTINE 
WRIPAT: MOV 2(SP) RS :GET BLOCK COUNT 
MOV 4(SP),R2 :GET STARTING BANK # 
JSR PC,STMM2 :GO SET UP MEM MGMT 
MOV (PC) +,RO :GET USER CONSTANT 
.CONST: O 
1$: MOV #64.,R5 -SET 256. WORD COUNTER 
e$: MOV RO, (R2)+ :WRITE 256. WORDS 
MOV RO, (R2)+ 
MOV RO, (R2)+ 
MOV RO, (R2)+ 
DEC R53 :DECREMENT 256. WORD COUNT? R 
BNE 2$ *LOOP UNTIL 256. WORDS HAVE BEEN WRITTEN 
DEC RG :DECREMENT BLOCK COUNT 
BNE 1$ 
MOV (SP), (5P) -ADJUS] STACK 
MOV (SP)¢, (SP) 
RTS PC 


:ROUTINE TO CHECK THE SWITCH REGISTER 


:CHECK SWITCH 9: 


:J]F NOT SET, 
CKSWR: BIC 
BIT 

BEQ 

JSR 

10$: BIT 
BEQ 

B1S 


IF SET 


#17777,LOD1SP 
18118, aaSWR 
10% 


PC REL 24K 
#BIT9,aaSWR 


1$ 
ERCNT,LOOISP 


, LOAD ERROR COUNT INTO THE 
LOAD PASS COUNT INTO THE DISPLAY gt 


PLAY REGISTER; 


wmrntoe 
aw 


;SAVE RELOCATION 
CHECK SWITCH 8 
:BRANCH IF SET 

;GO RELOCATE PROGRAM BACK TO 4« AND STOP 
;SWITCH 9 SET 2 


sLOAD ERROR COUNT 





4 


CEMJADO 11/70 MEM TSI MACYII SOACTO5S2) O9-FEB-79 12:56 PAGE 63 

CEMJAD.P11 «= O9-FEB-79 11:18 ROTATING 1°S & 9°S ROUTINES SEQ 0042 — 
2004 007522 000403 BR et | 
2005 007524 056767 171222 171226 18: BIS ICNT,LDDISP ;LOAD PASS COUNT | 
2006 007532 916737 171c22 177570 2s: MOV LDDISP,a#DiSPLAY:LOAD THE DISPLAY REGISTER 
2007 007540 012767 040177 171206 MOV #040177, 1COUNT ;LOAD ITERATION COUNT WORD 
2008 007546 032737 004000 177570 BIT #4000 ,aa#SwR CHECK SW11 | 
2009 007554 001402 BEG +6 | 
2010 007556 105067 171172 CLRB == 1COUNT ;1COUNT =040000 IF Sw11 =1 
got 007562 000207 RTS PC 
2015 ;MESSAGES 


2014 007564 005015 047524 051040 RESLDR: .ASCIZ <15><12>"TO RESTORE LOADERS START AT 162°<15><12> 


2020 007630 005015 047105 041101 PARITY: .ASCIZ <15><12> "ENABLE PARITY? 1/0=YES/NO * 


2025 007665 015 051412 040526 STBANK: .ASCIZ <15><12>"STARTING BANK #(8)? ° 


3434 007714 005015 020043 043117 BANKS: .ASCIZ <15><12>"# OF 4K BANKS TO TEST(8)? ° 


2034 007751 015 050012 052101 PAT: sASCIZ <15><12>"PATTERN #? ° 


000 
2037 007767 =—-015.-« 037412 «=——ss000-s«s QUEST: =.ASCIZ <15><12>"?" 
2038 607773 015 052012 050131 CONST: .ASCIZ <15><12>"TYPE CONSTANT’ 


000 
2041 010015 015 064412 050116 PRG3M: .ASCIZ <15><12>"INPUT # OF 256. WORD BLOCKS TO TEST INSTEAD OF* 


2048 a ans 042524 042101 047440 
0074 005015 054524 042520 PRG4M: .ASCIZ <15><12>"TYPE ADDRESS' 


2050 01 

2051 010102 040440 042104 042522 

2052 010110 051523 000 

2053 010115 015 052012 020117 RELOCM: .ASCIZ <15><12>"TO RESTORE PROGRAM START AT : 
2054 010120 042522 052123 051117 

2055 010126 020105 051120 043517 

2056 010134 040522 020115 052125 

2057 010142 051101 020124 052101 

2058 010150 000040 

2059 010152 000052 ASTERISK:.ASCIZ ‘#! 


a TS TT 
ee ———————E——EE—EE—————————————— Ee ee - - 


noes Le MEM TS! 
CEMJAD.P 


010154 
010162 


010244 
010246 


010252 
610254 


010256 


a 


4 


MACY11 S0AC 1052) O9-FEB-79 12:56 PAGE 44 

O9-FEB-79 11:18 ROTATING 1°S & O'S ROUTINES 

042503 045115 oe ENDMSG: .ASCIZ ‘CEMJA DONE!* 

047504 042516 000041 

-EVEN 
-ROUTINE TO RELOCATE PROGRAM BACK 10 0 

010700 REL 24K: MOV ‘ | 

042769 01777? BIC #17777,R0 

010067 000004 MOV RO,1% 

004567 174112 JSR R5,RELOC 

000000 i$: 0 

000000 0 

012706 000500 MOV @STKPITR,SP 

042737 100000 000760 BIC #100000, ,a#LDDISP 

013737 000760 177570 MOV QFLDDISP,a#DISPLAY 

005037 000764 CLR Q#RELOCF 

000005 RESET 

000137 900162 JMP a#PONE 

005042 CLRPAR: CLR -(R2) 

000177 172210 JMP Q@PERSTRI 

005042 PARCLR: CLR -(R2) 

000002 RT1 

LODAR. 
000001 


;FORM BASE ADDRESS WHERE CODE 

;1S RELOCATED 

:PUT FROM ADDRESS INTO SUBROUTINE CALL 
;RELOCATE CODE TO 

;LOWEST 4K 


;SET STACK PIR 

:CLEAR RELOCATION INDICATOR 
:LOAD DISPLAY REGISTER 
:CLEAR RELOCATION FACTOR 
sDISABLE ME” MGMT 

-RESTORE LOADERS & HALT 


:CLR MEM OF PAR ERR 
RESTART SELETED PROGRAM 


:CLR MEM OF PAR ERR 
;CONTINUE SCAN 


nine 


CEMJADO 11/70 MEM TST 


CEMJAD.P11 

ADRESS 002527 
ASTER] 010152 
BANKS 007714 
BEGIN] 003476 
BELL 001527 
81112 = 010000 
81715 = 020000 
B1114 = 040000 
B1115 = 000100 
Bi11T6 = 000100 
B11T8 = 000400 
BI119 = 001000 
BPTVEC= 000014 
C = 000001 
C<SwR 007462 
CLRPAR 010244 
CNTIRL = 177746 
CONST 007775 
COUNT 000765 
CRLF 000100 
DIGITS 002351 
DIGTAB 002312 
DISPLA= 177570 
DONE 004256 
DONEO 002656 
DONE’ 002762 
DONE1O 003740 
DONES 003064 
DONES 003152 
DONEGA 003222 
DONESB 003272 
DONESC 005540 
DONESD 005452 
DONE6 005556 
DONE? 003564 
DONES 004654 
DONED 003702 
EMTVEC= 000050 
END 004212 
ENDCT 004236 
ENDMSG 010154 
ERCNT 000756 
ERROR 001204 
ERRPC 001475 
ERRTRP 001126 
ERRVEC= 000004 
ESTRB 005315 
FINISH 004314 
FRPEVEC= 000244 
HORNT 005460 
HLT =: 104400 
TONT 000752 
ICOUNT 000754 
1otvet- 000020 
e[PARO: 172360 


MAC 
O9-FEB-79 11:18 


692 
5 


hy 30A(1052) 


8778 
205984 


09-FEB-79 


1451 


112468 


1264 


1926 
12548 
1452 
BBle 
2006* 


19978 
1502* 


1439 
2073* 


13248 


1061 
1461 
1786 


f 
12:56 PAGE 46 
CROSS REFERENCE TABLE -- USER SYMBOLS 


1507+ 


2005 
1739 


1324 
1021* 
1559* 


1094 
1529 
1822 


1753 


1051* 


1760 


1083* 


1216 
20108 


176? 


11428 


1299 


1798 


1148" 


1370 


1805 


117le 


SEG 0044 


1912 


11TROe 


mamma eseeeesnesesemeseeaeesnesneeseseseseeeeeeeseteeeceeesteeeteae —e - 


CEMJADD 11/70 MEM TST ight 30A(1052) O9-FEB-79 12:56 PAGE 47 

fEMJAD P11 O9-FEB-79 11:18 CROSS REFERENCE TABLE -- USER SYMBOLS SEG 

K|PAR\= 172562 42aa 785 993 1919¢ 1223*¢ 1559¢ 1567* 157Se 

KIPAR2= 172544 4298 786 12018 12248 1556" 1599¢ 16138 

KLPARS= 172346 4308 787 1601" 16148 

KIPARG= 172350 43ie 788 

KIPARS= 172352 4320 789 

KIPAR6= 17255 4334 790 

KIPAR7= 172356 4348 548 791 1560* 

KIPDRO= 172300 4184 530 11998 13640 1553 

KIPDRI= 172302 4198 15548 

KIPDR2= 172504 4208 1200° 1555* 1602¢* 

KIPDR3= 172306 4218 1603 

KIPDRG= 172310 4228 16048 

KIPORS= 172312 4234 

KIPOR6= 172514 4am 

KIPOR7= 172316 425" 553 1557* 

K = 000000 3634 

LCRNT 005544 1475 1487a 

LOCOMP 006324 1680 16844 

LODISP 000760 5864 673* 6748 675 908" 909 1997¢ 2003" 200%" 2006 2072 2073 

LOmMMO ) 8=©—.-—d00 540 944 964 1037 1053 1085 1198 1363 15458 1596 

LONWORM 006336 1681 1683 1687 

LODAR 010256 836 850 20844 

LODFLO 602110 8218 823 B41* 845 859« 

LST 002322 8768 955 

LSTLOC 002244 840" 8564 

LSTRB 005350 1474 14854 

MAINTR= 177750 1527# 15318 

MARGIN 005512 1132 15294 

MARMSG 005375 1468 14924 

MARTBL 005266 1463 1466 14718 

MEMERR= 177744 1410#@ 1421 14268 

MEMHI = 177742 14098 1423 

MEMLO = 177740 14084 1422 

MMABTO 005662 945 1029 1038 1086 1365 15668 

MMABT! 005714 1003 1070 15744 

MMABT2 006072 1606 16114 : 

MMAVA 000762 525 546 587a 742 921* 9268 y36e 991 1017 1730 =—Ssié«‘' TD 1196 1221 
1361 1514 1546 1588 

MMVEC = 000250 385a 945* 1003* 1020 10358 10708 10868 14365* 1606* 

MRGNTB 005532 1462 1531 1535a@ 

N = 000010 35968 

NOFIND 004773 1386 14014 

NORMAL 005304 1471 1477 14804 

O2A 002014 700 705 7968 = 13.34 1435 1457 

PARAVA 005510 $59 1162 1504* 1508* 1520@ 

PARCLR 010252 1371 20814 

PARERR 004/752 1354 13984 1429 

PARITY 007630 20208 

PARPAT 003522 11298 1164 1166* 1630 1660 1709 1791 

PARREG 001531 728" 861455 

PARTAB 001774 752 7848 

PARVEC= 000114 1358 14974 ile 151%e 15168 1518« 

PASSMG 0023635 884a 

PASSNM 092370 885" 

PAT 007751 20348 

PDWN 000562 S234 $65 917 


a ee a ET LL CE LEE DL LLL LOL ELL LE A LE - 


CEMJADO 11/70 MEM Me 


CEMJAD.P11 

PEFLG 004572 
PENFLG 004575 
PERSTR 002462 
PFSTK 000564 
PFVEC = 000024 
PIRQ = 17/772 
PIRVEC= 000240 
Pxm = 000000 
PLACE 002374 
PONE 000162 
PRG3M 010015 
FRGGM 010074 
PRTY4 = 000200 
PRTY7 = 000540 
PSM = 010000 
PSw = 177776 
PTwO 900200 
Pum = 030000 
PuP 000576 
PWRFA] 000730 
QUEST 007767 
RANTST 003742 
RECDAT 601514 
REG = 004000 
RELFL 000110 
RELOC 004520 
RELOCF 000764 
RELOCM 010113 
RELOCP 004422 
REL24K 010170 
RESLOR 007564 
RESVEC= 000010 
ROTATE 007342 
ROTO 004114 
ROTI 004154 
Rid = 000006 
SAvVPC2 000112 
SAVRO 0047356 
SAVRI 004740 
SAVR2 004742 
SAVR5 004744 
SAVRG 004740 
SAVRS 004750 
SCOPE = 104000 
SiR = =_-«'177776 
SM = 040000 
SPACE! 002361 
SRO 3 = 177572 
SRI = 177574 
SR2 = 177576 
SR3 = 172516 
START 002376 
START! 002440 
STBANK 007665 
“TePtk= 000500 


MACY11 30A(1052) 
11:18 ( 
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ROSS REFERENCE TABLE -- USER SYMBOLS 


O9-FEB-79 
13564 1368 
1384* 
1469 2079 
S6Se 917* 
2068 
734 735 
2065" 
19508 
1553 1554 
13918 
1459 
558. 744 
557* 1568 
556*« 929* 
913 1277 
910 952 


13730 1380 1413 1417 

918¢ 

780 781 916" 1309 1434 2074 
1337 1602 1605 

925% 15618 1569« 1570« 1578 15B8ie 1607* 
1577 1615 

930 935« 934 1$50« 1552 

985 1124 1140 1153 1170 1178 1228 


T6loe 


CEMJADO 11/70 MEM TS! MACYII neat oats’ terek 12:56 PAGE 49 


CEMJAD.P11 O9-FEB-79 11:18 ROSS REFERENCE TABLE -- USER SYMBOLS SEQ OC 
S1™m2 86005760 15868 1626 1702 1782 1818 190 1929 1977 
SwR = 177570 397a 646 671 676 680 708 71? 922 927 1418 14625 1499 'S48 
1778 1820 1998 2001 2008 
= 000020 3608 
TBITVE= 14 3748 
1«B = 177562 3948 
TKS = 177560 3938 §23 S648 
TKVEC = 000060 3814 
TPB = 177566 3968 
TPS) ss =:«*2177566 3954 1268 
TPVEC = 000064 382" 
TRAPVE= 000034 3808 466 
TRAPS 001460 656 7198 
TRIVEC= 000014 375a 
TYP]T 001110 628 636 659" 
UBREAK= 177770 3918 
UM = 140000 3654 
UP = 000000 4438 1200 1553 1554 1557 1602 1605 
V = 006002 357A 1582 
wOS.25 005602 11528 1234 1238 1245 1249 
WRIPAT 007410 1235 1246 19758 
WRTUP 002616 932 9428 
XMTIDAT 601501 698 7238 
= 000004 3584 
SCRLF 000746 476 5784 
SENDAD 004304 470 1117 12738 
$Fitt 001021 6124 
SFORMO 001554 654 684 690 7348 953 
SLOR 002112 8238 904 
$LDRM 002264 858 8644 
SLDRI 002262 834" 848 8624 
$nuct 001020 6114 631 
SPRINT 000770 475 570 597A 655 657 685 687 691 697 702 710 805 857 
Bi Ree 1262 1266 1330 1353 1385 1428 143] 1446 1450 1454 1458 
46 46 
SRESTR 000300 5074 563 707 779 B16 
S$RLDR 062210 482 8454 1272 
$SAvR 000254 4954 524 682 736 797 
$1KFLG 0010235 6154 
$1PB 601026 6178 641* 
STPFLG 001022 615* 
$TPS 001024 6164 639 
$$$TAG= 016146 20854 
‘ = 010256 4454 4604 4664 4698 4728 4748 4808 4858 4888 5188 5828 640 647 
677 713 7328 756 829 868" 8868 1060 1108 1269 1305 14058 14948 
1705 1716 1723 1730 1737 1744 1751 1758 1765 1787 1796 1803 1938 
2009 2085 
.CONST 007426 12328 1243 19798 
. MAME 005410 561 937 1126 1376 14998 > 
PARSR 004540 13468 1511 
ROTO 007160 1239 18984 
ROTI 007254 1250 19264 
TYPE 001030 601 6184 
xOR39 006262 1663 16724 1712 1793 
5X9 006 1157 1696@ 
8X13 007152 1186 18884 


—- se ~~ 


—— ae ee ee ee em 


ee 


J 
CEMJADO 11/70 MEM TST MACY11 30A(1052) O9-FEB-79 12:56 PASE 50 


CEMJAD.P11 O9-FEBH-79 11:18 CROSS REFERENCE TABLE == USER SYMBOLS 
.22PAR 005020 14138 1516 

-3180 006300 1673 16774 

. 5151 006270 1h76@ 

-5189 006516 1676 1678 16828 

-3N019 006306 1675 1679@ 

.3n9 006150 145 16254 


5 1 
-BK15 007144 1175 18788 


—— ee er ——— " = = 


el _ —_—- 


CEMJADO 11/70 MEM TST MACY11 30A(1052) 


CEMJAD.P1! 


COMMEN 
ENDCOM 
ESCAPE 
GETPRI 
GET Swe 
MULT 
NEWTS! 
POP 
PUSH 
REPORT 
SETPRI 
SETUP 
SKIP 
SLASH 
STARS 
Swe Su 
TYPBIN 
TYPDEC 
TYPNAM 
TYPNUM 
TYPOCS 
TYPOCT 
TYPTXT 


O9-FEB-79 11:18 


O9-FEB-79 12:56 PAGE $2 
CROSS REFERENCE TABLE -- MACRO NAMES 


SEQ 0049 


CEMJADD 11/70 MEM TST MACYI11 30A(1052) O9-FEB-79 12:56 PAGE 53 
CEMJAD Pi O9-FEB<79 11:18 CROSS REFERENCE TABLE -- MACRO NAMES 


-SSIZE le 
. SSUPR is 
. STRAP le 
ST YPs la 
.STYPD iF 
.STYPE lf 
-St¥PO is 
-840CA lf 
.1170 ls 


- ABS. 010256 000 


ERRORS DETECTED: 9 


CEMJAD.BIN, CEMJAD.LST/CRF/SOL/NL: TOC=CEMJAD.SML ,CEMJAD.P11 
RUN-TIME: 8 10 .4 SECONDS 

RUN-TIME RATIO: 98/19=5.90 

CORE USED: 32k (65 PAGES) 


ee - 


